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SUMMARY OF AMENDMENTS 



4969 Magnetic Tape Support (Version 2 only) 



The following chapters have been modified to include 
information for the IBM Series/1 4969 Magnetic Tape 

• Chapter 3 Data Management - Tape functions and stor- 
age capacities 

• Chapter 4 Operator Commands and Utilities - $VARYOFF 
and $VARYON operator commands, $TAPEUT1 utility 

• Chapter 6 System Configuration - The TAPE configura- 
tion statement 

• Chapter 7 System Generation - Sample configuration 
to illustrate including tape support in a system 

• Chapter 10 The Session Manager - Examples of menus 
and options for tape utility 

• Chapter 11 Tape organization - A new chapter 
explaining the use of, and support provided for, 
magnetic tapes 
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Remote Management Utility 



The following chapters have been modified to include 
Remote Management Utility 

• Chapter 6 System Configuration - The BSCLINE and 
TERMINAL statements 

• Chapter 7 System Generation - Sample configuration 
to illustrate BSCLINE and TERMINAL statements 



Bi bliography 



The bibliography lists the books in the Event Driven 
Executive library and a recommended reading sequence. 
Other publications related to the Event Driven Executive 
are also 1 i sted . 



Storage Estimates 



Storage estimates for V2.0 supervisor and utility pro 
grams have been added in Appendix A. 



Supervisor Module Names 



Supervisor Module Names for V2.0 have been updated in 
Appendix B. 



Program Preparation Example 



Appendix D shows a detailed example of how to code and 
prepare an interactive terminal program. 
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Miscellaneous Changes 



This manual has been modified to include new function 
and to improve technical accuracy and clarity. Addi- 
tional material and technical changes are indicated by 
vertical bars in the left margin. 
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HOW TO USE THIS BOOK 



The material in this section is a guide to the use of this book. 
It defines the purpose* audience* and* content of the book* as 
well as listing aids for using the book and background materi- 
als. 



PURPOSE 



The IBM Series/1 Event Driven Executive System Guide * 
SC34-0312 discusses system concepts and facilities. Examples 
of system concepts presented in the book are the generation of 
a static system* cross-partition communication between 
programs* and address translation. Examples of system facili- 
ties discussed are management of system resources* access 
methods* device support* and error logging. The System Gu i de 
also presents the details required for coding a tailored super- 
visor and advanced application topics. 



AUDIENCE 



This book is written primarily for system and application 
programmers. It does not include information for remote commu- 
nications and advanced terminal applications. 

The System Gu i de is intended for use by: 

• Programmers who need a general understanding of the Event 
Driven Executive system 

• Programmers concerned with coding applications or extend- 
ing the system capabilities 

• System programmers responsible for generating a customized 
system 

• Programmers who will use the Indexed Access Method 



HON THIS BOOK IS ORGANIZED 



This publication is organized in four parts* consisting of an 
introductory overview* system generation information* a 
description of the Indexed Access Method* and material 
explaining how to extend system capabilities. 
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Part I introduces you to the Event Driven Executive system and 
i ts capab i 1 i t i es . 

Part II contains system generation and configuration informa- 
tion. 

Part III contains both an overview of the Indexed Access Method 
and the detailed information necessary to write application 
programs using the Indexed Access Method. 

Part IV describes severals ways to extend the capabilities of 
your system* such as modifying the session manager* using tape 
labels* and using diagnostic aids and facilities. 

Appendix A discusses storage estimating. 

Appendix B lists the supervisor module names (Version 1.1). 

Appendix C lists the supervisor module names (Version 2). 

Appendix D contains an example of how to code and prepare an 
interactive terminal program. 

The bibliography discusses the Event Driven Executive library 
and lists related publications. 

The Glossary defines terms. 

The Common Index includes entries from all books in the Event 
Driven Executive library. 

In general* the System Gu i de is organized according to the dif- 
ficulty and depth of the information offered. Early material 
is overview information* followed by more detailed information 
for specialized use. 



EXAMPLES AND OTHER AIDS 



Throughout this book* both conceptual and coding examples are 
used to clarify system concepts and coding techniques. Coding 
examples are fully executable portions of complete programs 
that can be entered as shown. Coding illustrations are non- 
executable portions of incomplete programs that show the cor- 
rect format of all required parameters on a statement. Missing 
code or code you must provide is indicated by a series of three 
vertical or horizontal dots. 

Several other aids are provided to assist you in using this 
book : 



SC34-0312 vii 



• A Summary of Amendments lists the significant changes made 

to this publication since the lastedition 

• A Bibliography: 

Lists the books in the Event Driven Executive library 
along with a brief description of each book and a 
recommended read i ng sequence 

- Lists related publications and materials 

• A Glossary defines terms 

• A Common Index which includes entries from each book in the 
Event Driven Executive library 

References to other manuals are made throughout this manual 
using shortened titles. For the full title and order number of 
manuals mentioned in the text* refer to the bibliography at the 
back of this book . 



RELATED PUBLICATIONS 



Related publications are listed in the bibliography 



SUBMITTING AN APAR 



If you have a problem with the Series/1 Event Driven Executive 
services* you are encouraged to fill out an authorized program 
analysis report (APAR) form as described in the IBM Series/1 
Authorized Program Analysis Report (APAR) User's Guide * 
GC34-0099. 
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PART I - INTRODUCTION 



Part I is organized into five chapters which introduce you to 
the Event Driven Executive system and its capabilities. 
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CHAPTER 1. OVERVIEW 



The Event Driven Executive system simplifies the implementa- 
tion of application programs on the Series/1. Event driven 
implies that the system is activated by interrupts. An inter- 
rupt can be, for example* an operator pressing the ENTER key on 
a terminal or an external process interrupt. 

The Event Driven Executive consists of the following IBM 
Series/1 licensed programs? 

• Event Driven Executive Basic Supervisor and Emulator -- 
5719-XS1 or 5719-XS2 

• Event Driven Executive Utilities — 5719-UT3 or 5719-UT4 

• Event Driven Executive Macro Library/Host — 5740-LM2 or 
5740-LM3 

• System/370 Program Preparation Facilities for Series/1 -- 
5798-NNQ 

• Event Driven Executive Host Communication Facility — 
5796-PGH 

• Event Driven Executive Program Preparation Facility -- 
5719-XX2 or 5719-XX3 

• Event Driven Executive Macro Library — 5719-LM5 or 
5719-LM6 

• FORTRAN IV Compiler and Object Support Library — 5719-F02 

• Event Driven Executive Mathematical and Functional Subrou- 
tine Library (MFSL) — 5719-LM3 

• Event Driven Executive COBOL Compiler and Resident Library 

— 5719-CB3, and Event Driven Executive COBOL Transient 
Library — 5719-CB4 

• Event Driven Executive PL/I Compiler and Resident Library 

— 5719-PL5, and Event Driven Executive PL/I Transient 
Library — 5719-PL6 

• Event Driven Executive Sort/Merge — 5719-SM2 

• Event Driven Executive Macro Assembler — 5719-ASA 

• Event Driven Executive Multiple Terminal Manager - 
5719-MS1 

• Event Driven Executive Indexed Access Method - 5719-AM3 
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The Basic Supervisor and Emulator is required for all Series/1 
processors (4952, 4953, or 4955) that execute Event Driven 
Executive application programs or utilities. You must also 
have the licensed programs required for program development. 
Program development includes building 'the Basic Supervisor and 
Emulator and developing application programs using either the 
Event Driven Language compiler, the Series/1 Macro Assembler 
and Macro Library, the COBOL Compiler/Resident Library and 
Transient Library, the PL/I Compiler/Resident Library and 
Transient Library, or the FORTRAN IV Compiler and Object Sup- 
port Library. You can assemble and execute application pro- 
grams while other programs or utilities are running on the same 
Ser i es/1 . 



The Basic Supervisor and Emulator allows you to process multi- 
ple, independent, concurrent application programs with limited 
concern for, or knowledge of, either the supervisor program or 
other application programs that share the same system. 

The Event Driven Executive is equally appropriate for: 

• A small unattended Series/1, without disk storage, dedi- 
cated to a single application 

• Multiple large Series/l ? s, each serving several terminals 
and several realtime applications, which can be connected 
to a System/370 

• Commercial transaction processing and event driven appli- 
cat i ons 



LICENSED PROGRAM DESCRIPTIONS 



Basic Supervisor and Emulator 



The control program, or supervisor, manages the resources of 
the Series/1 and your application programs that execute on the 
Series/1. This support includes: 

• An emulator and instruction set for coding application 
programs 

• The ability to initiate an application program either 
from a terminal or from another application program that 
can pass parameters to the new program 

• Multitasking within each application program, with 
preemptive task switching 
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Interval timing* with timing precision based on require- 
ments of the applications 

Multiple terminal support allowing terminals to be 
dynamically assigned to the application requiring them 

A relocating loader allowing application program to exe- 
cute in any available main storage area 

The ability to operate independently of a host computer 

Support for a wide range of Series/1 devices 

Support for 4969 tape device - Version 2 only (5719-XS2) 



Utilities 



The system utilities provide interactive support for tailored 
supervisor generation* source module preparation* disk 
initialization* data set/volume maintenance* program prepara- 
tion* and other system functions. 

Remote Management Utility support is provided in Version 2 
C5719-UT4) only. 



Macro Library/Host 



The Macro Library/Host is a set of libraries and procedures to 
be installed on a System/370 to allow Event Driven Language 
programs to be compiled and Series/1 assembler programs to be 
assembled on a host machine. The macros support all Event 
Driven Executive functions provided by the Program Preparation 
Facilities for Series/1. This licensed program operates in 
conjunction with the System/370 Program Preparation Facility. 



Program Preparation Facility 



The Program Preparation Facility consist's of programs that 
allow you to compile and link edit Event Driven Language pro- 
grams concurrently with the execution of other programs (in- 
cluding other Program Preparation Facility programs). You can 
also reconfigure* assemble* and link edit tailored supervi- 
sors. 



Chapter 1. Overview 



If you code only Event Driven Language instruct ions> all appli- 
cation program preparation can be performed using this pro- 
duct . 



Macro Library 




FORTRAN IV Compiler and Object Support Library 




When the FORTRAN IV compiler is installed on your Series/1, it 
transforms FORTRAN IV source programs into machine 
instructions. The compiler executes under the Basic Supervi- 
sor and Emulator to produce an object module for the Program 
Preparation Facility linkage editor that can then be processed 
by the $UPDATE utility. After $UPDATE processing* your program 
executes under the Basic Supervisor and Emulator. 

Publ i cat i ons : 

• IBM Series/1 FORTRAN IV Language Reference, GC34-0133-1 

• IBM Series/1 Event Driven Executive FORTRAN IV User's 
Guide, SC34-0315 



Mathematical and Functional Subroutine Library 



The Mathematical and Functional Subroutine Library (MFSL) is a 
set of subroutines for IBM Series/1 Event Driven Executive 
application programs written in FORTRAN IV, or Event Driven 
Language, or Assembler Language. MFSL is a requirement for 
Event Driven Executive FORTRAN IV and support is provided for 
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functions such as? 

• Mathematical functions to aid the application programmer, 
such as sine, cosine, logarithms and exponentiation func- 
tions, maximum and minimum functions, and modular arithme- 
tic. 

• Conversion routines to convert numeric data from EBCDIC to 
a Series/1 internal format suitable for mathematical oper- 
at i ons . 

• Error check i ng . 

• Commercial subroutines to provide output formatting, data 
conversion, variable-length decimal arithmetic and utili- 
ties. 

Publ i cat i ons : 

• IBM Series/1 Mathematical and Functional Subroutine 
Library User's Guide SC34-0139 



COBOL Compiler and Resident Library* and Transient Library 



COBOL offers a wide range of commercial functions, plus exten- 
sive facilities for handling input and output, sorting and 
merging data files, accessing indexed data files, structuring 
source and object programs, and debugging. Also supported is 
local communication with Series/ 1 devices. 

The COBOL compiler produces an object module which, along with 
the required COBOL support routines, is input to the Program 
Preparation Facility linkage editor. The linkage editor output 
is then processed by the $UPDATE utility to produce an executa- 
ble relocatable load module. After $UPDATE processing your 
program executes under the Basic Supervisor and Emulator. 

IBM Series/1 Event Driven Executive COBOL is designed accord- 
ing to specifications for American National Standard COBOL 
X3. 23-1974, as understood and interpreted by IBM as of March 
1979, with the exception of the RERUN Clause. IBM Series/1 
Event Driven Executive COBOL exceeds the Low Intermediate Lev- 
el COBOL as defined by FIPS 21-1. 

Publ i cat i ons t 

• IBM Series/1 COBOL Language Reference, GC34-0234 

• IBM Series/1 Event Driven Executive COBOL Programmers 
Guide, SL23-0014 
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I PL/I Compiler and Resident Library* and Transient Library 

PL/I alio ms applications to use the full function capabilities 
of the hardware and operating system. The PL/I language is 
extensive in function, permitting development of applications 
that can be easily modified and maintained. Highlights of the 
PL/I offering include: 

Communications support 

Indexed Access Method support 

Full-screen support 

Sort/Merge support 

Commercial programming functions 

Dynamic allocation and freeing of storage 

Optimized object code 

Magnetic tape support 

PL/I f s fixed decimal facility allows you to process large and 
fractional numbers on the IBM Series/1 4952 and 4953 processors 
which do not have the floating point feature. 

The PL/I compiler produces an object module which, along with 
the required PL/I support routines, is input to the Program 
Preparation Facility linkage editor. The linkage editor output 
is then processed by the $UPDATE utility to produce an executa- 
ble relocatable load module. After SUPDATE processing your 
program will execute under the Basic Supervisor and Emulator. 

IBM Series/1 Event Driven Executive PL/I is a subset of the 
American National Standard Programming Language PL/I (ANSI 
X3. 53-1976), as understood and interpreted by IBM as of July 
1979, plus multitasking language extensions. 

| Publ i cat i ons : 

• IBM Series/1 Event Driven Executive PL/I Language Refer- 
ence, GC34-0147 

• IBM Series/1 Event Driven Executive PL/I User's Guide, 
SC34-0148 
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Sort/Merge 



The Sort/Merge licensed program sorts and merges records from 
up to eight input data sets into one output data set in either 
ascending or descending order. You can specify one or more 
control fields in the records to be sorted. The Sort /Merge 
program compares the control fields to determine the relative 
sequence of the records. 

The Event Driven Executive Sort/Merge program executes under 
the Basic Supervisor and Emulator. 

Publ i cat i ons : 

• IBM Series/1 Event Driven Executive Sort/Merge: Program- 
mer's Guide, SL23-0016 

• IBM Series/1 Event Driven Executive Sort/Merge: Specifica- 
tions Sheet Form, GX23-0009 



Series/1 Macro Assembler 

The Macro Assembler converts text data sets containing 
machine, assembler, and macro instructions that have been 
coded in the Series/1 instruction set into object modules. The 
object modules can then be processed by the linkage editor. 

When the assembler is used in conjunction with the Macro 
Library, applications coded in the Event Driven Language can 
also be processed by the Macro Assembler, including customiz- 
ing the supervisor. You can also include in the macro library 
your own macros for commonly used routines. The Macro Assembler 
and the Macro Library can be used in place of the Program Prepa- 
ration Facility ($EDXASM). 

With the Macro Assembler you can assemble device support mod- 
ule s o r modules that modify supervisor functions. You can also 
assemble exit routines written in Series/1 Macro Assembler 
language. The resulting object module is input to the Program 
Preparation Facility linkage editor, together with your appli- 
cations generated in Event Driven Language instructions, PL/I, 
FORTRAN IV, and/or COBOL. Your program will execute under the 
Basic Supervisor and Emulator after it has been processed by 
the library update utility ($UPDATE). 

Publ i cat i ons : 

• IBM Series/1 Event Driven Executive Macro Assembler, 
GC34-0317 

• IBM Series/1 Macro Assembler Reference Summary, SX34-0076 
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Multiple Terminal Manager 



The IBM Series/1 Event Driven Executive Multiple Terminal 
Manager provides a set of high level functions that simplify 
the design* implementation, and maintenance of 
transaction-oriented applications. High level language 
programs (COBOL, PL/I, FORTRAN IV, or Event Driven Language) 
can execute in an interactive environment, where one or more 
applications can run concurrently using one or more display 
devices. Additional interfaces are provided for indexed or 
direct files (access to indexed files requires the Indexed 
Access Method) and an operator interface for functions such as 
sign on, connect or disconnect, terminal status reports, and 
printing the contents of the transaction program library. 

Publications: Refer to the Multiple Terminal Manager topics in 
the master index of this publication. 



Indexed Access Method 



The Indexed Access Method provides data management facilities 
that support indexed file operations. It allows you to build, 
access, and maintain records in indexed data sets via a prede- 
termined field called a key. An index of keys provides fast 
access to records in an indexed data set. The access method 
supports a high degree of insert/delete activity, providing 
both direct and sequential access to the data from multiple, 
concurrently executing programs. Applications that use the 
Indexed Access Method can be programmed in the Event Driven 
Language, PL/I, or in COBOL. It is supported by the Sort/Merge 
licensed program, which will accept Indexed Access Method data 
sets as input files. Also provided is a utility to define 
indexed data sets. This utility can be invoked from a terminal 
or from a program. 

The Indexed Access Method provides keyed access to data to 
support a variety of applications, ranging from batch process- 
ing to interactive applications. 

The data file organization provides direct and sequential 
processing of files. This is accomplished by using cascading 
index techniques for direct processing and by sequence chain- 
ing of the data blocks for sequential processing. 

The access method supports files which have high add /delete 
activity (such as open order files) with nominal performance 
degradation. This is accomplished by distributing free space 
for additions throughout the file, by updating and inserting 
additions in place, and by dynamically reclaiming space after 
delet i ons . 
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Indexed Access Method supports multiple programs and tasks 
sharing the same files. In a shared environment* data integri- 
ty is maintained by record and block level locking to prevent 
access to a record while it is being modified. 

Publications: Refer to the Indexed Access Method topics in the 
master index of this publication. 



| Series/1 Data Collection Interactive PRPQ Support 



The Series/1 Data Collection Interactive PRPQ (P82600) 
provides Series/1 programming support for attachment of the 
5234, 5235, 5236 Data Entry Stations. Value Read (5239) is sup- 
ported; also the output of up to 8 bytes of data from the 
Series/1 to the 5235/5236 Data Entry Station displays. These 
bytes can consist of any digit and some alpha characters. 

Support is provided for? 

1. Personalization functions: 

• via console prompting 

• transportable and modifiable configuration defi- 
n i t i ons 

• Auto IPL, using the last executing configuration 

2. IOCS functions: 

• Write 4 characters - Time-of-Day 

• Write 8 characters - display of any numeric and some 
alpha characters 

• Initiate online test 

• Read 180 byte buffer 

• Set audible alarm/contact closure 

• Error handl i ng 

3. Data Routing/Formatting functions: 

• Route to storage 

• Route to Disk/Diskette 

Optionally, common data with buffers 
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Optionally* sequenced buffers 

Single output format per controller 

- Incomplete transactions written with regular 
records 

Diskette output 5231-002 compatible 

This product has potential uses in data collection time and 
attendance* limited data base inquiry and interaction, and 
plant and process control type applications. 



| Publications 



IBM Series/1 Data Collection Interactive Programming RPQ 
P82600 Users Guide, SC34-1654 
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PROGRAM FEATURES 



Multiprogramming* Multitasking Supervisor 

The Event Driven Executive Supervisor and Emulator controls 
the execution of your application programs. It is a multipro- 
gramming supervisor that is capable of controlling concurrent 
program execution. Some of the design features are: 

• Up to 510 task priorities consisting of 255 priorities 
within each of two hardware levels 

• A storage efficient instruction emulator that is table 
dr i ven 

• Provision for interprogram communication 

• Capability for automatic restart following a power 
outage 

• Storage management support for storage sizes greater than 
64K bytes 

• The capability for concurrent execution of 

Multiple applications 
Utilities 
- Program preparation 



Event Driven Language 

The Event Driven Language provides dynamic control of oper- 
ation sequencing^ calculations^ and decision making. It has 
the following features: 

• Integer and floating-point calculations 

• Logical and shifting functions 

• Structured programming functions: IF, THEN* ELSE* DO 
UNTIL, DO NHILE 

• Interval timing and time of day functions 

• Task control and synchronization 
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Generalized binary synchronous communication capability 
modeled after OS/BTAM> for bas i c read/wr i te to other sys- 
tems 

Assembler language subroutines 

Data def i n i t i on 

Program control 

Graph i cs 

Queue processing 



Multiple Terminal Support 



The Event Driven Executive terminal support is as device inde 
pendent as possible. The following devices are supported: 



IBM 4978 Display Station 

IBM 4979 Display Station 

IBM 3101 Display Terminal 

IBM 4973 Line Printer 

IBM 4974 Matrix Printer 

IBM 2741 Communications Terminal 

Graphics terminal (Tektronix 1 or equivalent) 

Teletype 2 ASR 33/35 (TTY) or equivalent 



Timer Support 

The Event Driven Executive supports the following timers 

• IBM Feature #7840 Timer Attachment 

• IBM 4952 processor native timer 



1 Registered trademark of the Tektronix Corporation. 

2 Registered trademark of the Teletype Corporation. 
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Sensor Input/Output Support 



The Event Driven Executive supports the Series/1 sensor I/O 
devices. The following functions are available: 



Analog input/output, digital input/output* 
interrupt 



process 



Sequential and random addressing of devices 

External synchronization 

Sharing device groups and subgroups between programs 

Relay or solid state multiplexing 

Multi-range analog input 

A program for testing your sensor I/O devices 



Storage Requirements 



The supervisor occupies at least 12K bytes of storage. The 
actual amount depends upon the support you require for your 
application. Typical supervisor storage requirements are 24K 
to 32K bytes. The remaining storage is available for your 
application programs. Each Event Driven Language instruction 
requires an average of six to eight bytes of storage. 



Disk and Diskette Support 

The following Series/1 disk and diskette units are supported: 

• 4964 Diskette Unit 

• 4966 Diskette Magazine Units 

• 4962 Disk Storage Unit (Models 1, IF, 2, 2F, 3, and 4) 

4963 Disk Subsystem (Models 23A, 23B, 29A, 29B, 58A, 58B, 
64A, and 64B) 

The following disk and diskette functions are available: 

• Fixed head support for system and for application pro- 
grams (disk only) 
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• Multiple logical volumes on a physical disk or in a 
diskette magazine unit 

• Sequential or random access 

• Initial Program Load text 



| Tape Support (Version 2 only) 

The Series/1 Event Driven Executive 4969 Magnetic Tape Subsys- 
tem supports the following: 

• Up to four IBM 4969 tape drives attached to each tape con- 
trol ler 

• 9 track tape drives with either vacuum or mechanical 
take-up arm 

• Tape drives of 800 BPI NRZI mode, 1600 PE recording mode, 
or dual mode 

The 4969 supports the following: 

• Standard label tapes (SL) (DOS/VS compatible) 

• Unlabeled tapes (NL) 

• Bypass label processing (BLP) 



Binary Synchronous Communications Support 



The Event Driven Executive has the following binary synchro- 
nous communications capabilities: 

• Multiple BSC medium speed, single line feature cards — 
Feature 2074 

• Multiple BSC high speed, single line feature cards — Fea- 
ture 2075 

• Multiple BSC 8-line control feature cards — Feature 2093 
(each with one or two BSC 4-line feature cards — Feature 
2094) 

• Point-to-point, leased or switched lines (switched 
lines provide auto answer and manual dialing) 

• Multipoint operation as either master or tributary 
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• Transparent mode of operation 

• Limited conversational mode of operation 

• Automatic retry 

• Remote Management Utility support (Version 2 only) 

I/O Level Control (EXIO) 



The I/O level control functions (EXIO instructions) allow you 
to control; at the device level, any device attached to the 
system that meets the standard I/O interface. The EXIO 
instructions provide the capability to control devices not 
otherwise accessible using the Event Driven Language 
instructions. You also may use the EXIO interface to support 
standard devices in a non-standard manner. 



Communications Support 

Communications support enables you to communicate with other 
processors. The following functions are available: 

• Generalized binary synchronous support for processor-to- 
processor communications 

• Multiple lines in point-to-point, switched/ multi- 
point master, or multipoint tributary 

• In conjunction with the Host Communications Facility IUP, 
direct read /write access to host files and direct job 
submission to a host batch processor over a leased line, 
using the single-line BSC adapter 

• Communications capability with other IBM systems: 

- Series/1 

- System/3 

- System/32 

- System/34 
5100 
5110 
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System/360 

System/370 
» 
Remote job entry capability to Rem'ote Job Entryfacilities 
on System/370 



Program Preparation 



Event Driven Executive program preparation support allows you 
to assemble and link edit programs while other tasks are exe- 
cuting. You are not limited to application development. You can 
also configure^ assemble* and link edit tailored supervisors. 
Program preparation support includes? 



The Event Driven Language compiler 

The Series/1 Macro Assembler 

The Host Preparation Facility 

The linkage editor 

The text editors 

The object reformatting programs 

The PL/I, FORTRAN IV, COBOL compilers and resident libraries, 
the PL/I and COBOL transient libraries, and the Mathematical 
and Functional Subroutine Library are also available for pro- 
gram preparation. 



Diagnostic Aids 



The diagnostic aids are a set of programs and utilities that 
can improve the process of error detection and correction for 
both hardware and software errors. Some of these programs are 
independently executable utilities; others are resident in the 
super v i sor . 

The hardware-oriented aids provide I/O error logging, sensor 
I/O testing, tracing of BSC line activity, and utility programs 
to format and print the trace output. 

The software-oriented aids provide an interactive application 
debugging tool; operator commands to display and patch stor- 
age; a program exception trace; and utilities for monitoring 
exception events, dumping storage to a data set, and printing 
the data set . 
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Depending upon the type of errors your system is encountering 
and your application requirements* you can select the appro- 
priate diagnostic aids. 



The following aids are provided! 

$BSCTRCE - traces the I/O activities on a given BSC line 

$BSCUT1 - formats the OBSCTRCE file 

$ B S C U T 2 - verifies the system's BSC configuration 

$D - displays storage in hexadecimal format 

$DEBUG - provides interactive program debugging capability 

SDISKUT2 - formats the data recorded by SLOG 

$DUMP - prints storage dumps taken by STRAP 

$IOTEST - tests the operation of sensor I/O devices 

SLOG - records I/O errors 

$P - modifies storage 

STAPEUT1 - general tape utility functions (Version 2 only) 

STRAP - detects exception events and dumps storage 

Trace Table - contains data concerning program exceptions 

For further information concerning the diagnostic aids* refer 
to the common index of this publication. 
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APPLICATION SUPPORT 

The Event Driven Executive contains a system supervisor that 
controls the execution of your applications. The supervisor 
controls the execution of multiple tasks so they can operate 
concurrently. The Event Driven Language is provided for writ- 
ing application programs. A key design feature is the support 
of multiple independent (time or event driven) applications 
with minimum interaction imposed by the system. 

The following categories of applications are supported: 

• Realtime data acquisition and control 

• Data reduction and report generation 

• Program preparation and testing 

• Commercial applications 

• Communications applications 

The Event Driven Executive via multiprogramming allows multi- 
ple application programs within a single computer. The total 
number of simultaneously operating applications depends on the 
data rates, program complexities, and the hardware configura- 
tion. 



Data Interchange 



The data interchange or exchange function provides: 

• The ability to transmit data to and from a host with BSC 
support, and to initiate host program execution using 
remote job entry support 

• The ability to transmit data to and from a host; to 
initiate program execution at the host from a Series/1 
terminal or from your program, and to synchronize program 
events on the host and Series/1 using the Host Communi- 
cations Facility IUP (installed user program) 

• Support of multiple Series/1 Event Driven Executive 
systems by a single host 

• Interchange of data through the use of basic data exchange 
formatted type diskettes. This function provides data 
transfer capability to and from other systems which read 
and write the basic data exchange diskette. 
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The 4969 Magnetic Tape Subsystem support can be used as a 
data exchange method between systems. The following modes 
of exchange are possible for 9-track 800/1600 BPI tapes: 

- Non-labeled 

- Standard labeled 

Other logical layouts may be processed by Bypass Label 
Process i ng 
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OPERATING ENVIRONMENT 



Minimum Execution System Configuration 

For Series/1 program execution with full multiprogramming 
capability* the minimum hardware requirements are: 

• One of the following: 

4952 Processor with 32K bytes of storage 

4953 or 4955 Processor with 16K bytes of storage 

• 4964 Diskette Unit or 4966 Diskette Magazine Unit 

The floating-point computational and conversion capabilities 
of the Event Driven Executive require the hardware floating- 
point feature of the 4955 processor (#3920). 

The use of the timer functions requires the timer feature 
(#7840), for processors other than the 4952. 

The three-dimensional capability of the Graphics Display 
Processor Utility requires a 4955 processor with the 
floating-point feature (#3920). 

A limited function (multitasking only) system is also feasible 
with a 16K-byte processor and no disks* diskettes, or termi- 
nals . 



Minimum Program Preparation Requirements 

The minimum Series/1 configuration for preparation of Event 
Driven Executive programs is: 

• 4953 or 4955 processor with 48K bytes of storage or 4952 
processor with 64K bytes of storage 

• 4964 Diskette Unit or 4966 Diskette Magazine Unit 

• 4962 Disk Storage Unit or a 4963 Disk Subsystem 

• 4973 Line Printer or 4974 Matrix Printer 
- One of the following: 

4978 Display Station 
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4979 Di splay Stat i on 

3101 Display Terminal or equivalent teletypewriter 
device 



Minimum Licensed Program Requirements 

The programs you require depend upon your application and which 
language you will use to code your applications. The choices 
are COBOL, FORTRAN IV, PL/I, Event Driven Language, or Macro 
Assembler Language. 

The first requirement is the Basic Supervisor and Emulator. 
Then, based upon your choice of languages and your type of 
work, the following can be used as guidelines: 

COBOL 

Program preparation requires the COBOL Compiler and Resi- 
dent Library, the Utilities, and the link editor of either 
the Program Preparation Facility or the Series/1 Macro 
Assembler. It allows you to? 

Install the COBOL Compiler and Resident Library and 
the COBOL Transient Library 

- Allocate data sets 

- Enter source programs 

- Comp i le 

- L i nk ed i t 

- Format screens 

Execution and test require the COBOL Transient Library and 
the Utilities. During execution and test, you may: 

- Use diagnostic aids 

- Load programs 

Back up and copy data sets 

PL/I 

Program preparation requires the PL/I Compiler and Resi- 
dent Library, the Utilities, and the link editor of either 
the Program Preparation Facility or the Series/1 Macro 
Assembler; it allows you to: 
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Install the PL/I Compiler and Resident Library and the 
PL/I Transient Library 

- Allocate data sets 

- Enter source programs 
Comp i le 

- L i n k e d i t 

- Format screens 

Execution and test require the PL/I Transient Library and 
the Utilities. During execution and test* you may: 

- Use diagnostic aids 

- Load programs 

Back up and copy data sets 

FORTRAN IV 

Program preparation requires FORTRAN IV, the Utilities, 
the Mathematical and Functional Subroutine Library, and 
the link editor of either the Program Preparation Facility 
or the Series/1 Macro Assembler; it allows you tot 

Install FORTRAN IV and the Mathematical and Functional 
Subroutine Library 

- Allocate data sets 

- Enter source programs 
Comp i le 

L i nk edi t 

Format screens 

Execution and test require the the Utilities. During exe- 
cution and test, you may: 

- Use diagnostic aids 
Load programs 

Back up and copy data sets 
Event Driven Language 
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Program preparation requires Utilities and the Program 
Preparation Facility; it allous you to: 

InstaLl the Program Preparation Facility 

Allocate data sets 

- Enter source programs 
Assemble 

L i nk ed i t 

Format screens 

Execution and test require the Utilities. During execution 
and test * you may : 

- Use diagnostic aids 

- Load programs 

- Back up and copy data sets 

Macro Assembler Language 

Program preparation requires the Utilities* the Series/1 
Macro Assembler* and the Macro Library} it allows you to: 

Install the Series/1 Macro Assembler and the Macro 
Library 

- Allocate data sets 

- Enter source programs 

Add macros that you have written 

Assemble 

L i nk ed i t 

Format screens 

Execution and test require the Utilities. During execution 
and test » you may : 

- Use diagnostic aids 

- Load programs 

Back up and copy data sets 
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Any application can use the Indexed Access Method* Sort/Merge* 
or the Mathematical and Functional Subroutine Library. An 
indexed data set can be accessed by using instructions provided 
by COBOL and PL/I. FORTRAN IV requires the Mathematical and 
Functional Subroutine Library. FORTRAN, EDL or assembly lan- 
guage must be used to interface to MFSL. 

If your application calls for transaction processing* the Mul- 
tiple Terminal Manager can be used. 

For link edits you can use the Program Preparation Facility or 
the Series/1 Macro Assembler since both contain the linkage 
editor. The Series/1 Macro Assembler allows you to intermix 
macro assembler language and Event Driven Language 
instructions, although with a loss of assembly time perform- 
ance when compared to the Program Preparation facility. 
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INSTALLING THE SYSTEM 

The IBM licensed programs that comprise the Event Driven Execu- 
tive system are shipped on one or more diskettes along with a 
document called a Program Directory. The diskettes contain the 
programs and source material. The Program Directory provides 
additional reference material, including the installation pro- 
cedure. This procedure identifies and describes the contents 
of each diskette volume and contains the step by step 
prompt/reply sequences that are used to install the product. 

The installation process is simply a sequence of: 

1 . i n i t i al i zat i on 

2. copy data sets to disk 

3. change d i ske tte ( SVARYON ) 

4. repeat steps 2 and 3, until all diskettes are processed 

An optional installation verification procedure allows you to 
verify that the installation is complete. The Program Directo- 
ry contains the step by step instructions for executing the 
verification procedure. 
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CHAPTER 2. SUPERVISOR AND EMULATOR 



The supervisor and emulator provides the system services 
required to assign processor time to your applications; data 
management and device management services; error handling and 
recording; and serialization logic. The emulator executes 
Event Driven Language instructions. 



PROGRAM/TASK CONCEPTS AND STRUCTURE 

In an Event Driven Executive system* system resources are allo- 
cated to tasks, according to the priority of the tasks. A task 
is a unit of work, defined by the application programmer. A 
program is a disk or diskette resident collection of one or 
more tasks that can be loaded into storage for execution. 
Although program and task are sometimes used synonymously, the 
basic executable unit for the supervisor is the task ; a program 
is the unit that is loaded into storage. 



The Program 



A program is defined by the application programmer. In its 
simplest form, a program consists of a single task and contains 
a PROGRAM statement, instructions, an ENDPROG statement, and 
an END statement. In its more complex form, a program contains 
more than one task. 

One of the operands on the PROGRAM statement defines the ini- 
tial entry point. Nhen the program is brought into storage, the 
initial entry point is the place in the program at which exe- 
cution will begin. The programmer is responsible for initiat- 
ing other tasks that are contained in the program. 

The name of a program is the name of the data set in which a pro- 
gram resides. A program may be brought into storage either by a 
terminal operator or by another program. 



The Task 

Tasks are formed by combining instructions within an applica- 
tion program. Each task is assigned a priority which the 
supervisor uses to allocate time for execution. An application 
program can consist of more than one task. Each task within the 
system runs independently* with its own priority, and each corn- 
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petes equally for the resources it requests from the system. 

Task priority is assigned by the application programmer when 
the task is coded. Valid priorities range between 1 and 510, 
with 1 being the highest priority, and 510 the lowest. Tasks 
with priorities ranging from 1 to 2 55 execute on hardware level 
2 , and tasks with priorities ranging from 256 to 510 execute on 
hardware level 3. Levels zero and one are reserved for the Bas- 
ic Supervisor and Emulator. 



Task Switching and Supervisor Control Routines 



The supervisor always allocates the processor resource to the 
highest priority task which is ready to execute. 

When a higher priority task becomes ready by task action or via 
an external event, the supervisor dispatches the higher prior- 
i ty task . 

In addition, routines under supervisor control support device 
and resource queuing, sensor I/O, interval timing, and process 
interrupt functions. Services are also provided to manage 
storage, host communications, disks, printers, tapes, and ter- 
minals. 



Task Definition and Control Functions 

You can use the following Event Driven Language instructions to 
define tasks and to control which tasks are executing at a giv- 
en time: 

ATTACH Makes a new task ready for execution 

ATTNLIST Provides entry to one or more of your asynchronous 
attention interrupt handling routines. ATTNLIST 
produces a list of the command names that you have 
defined and their associated entry points 

DETACH Removes a task from the ready state 

ECB Generates an event control block 

ENDATTN Terminates ATTNLIST processing 

ENDPROG Defines the end of a program 

ENDTASK Defines the logical end of a task 
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LOAD Loads a main program or program overlay from the 
currently executing program 

POST Signals the occurrence of an event 

PROGRAM Defines the basic parameters and primary task of a 
program 

PROGSTOP Terminates execution of all of the tasks in a program 
and releases the storage allocated to the program 

RESET Places an event in the "not occurred" state 

TASK Defines and names a task 

WAIT Halts task execution pending the occurrence of an 
event 

MHERES Returns the address and address key of a named 
program 



Subrouti nes 



A function may be required at several points in a program's 
execution. Rather than code the sequence of instructions that 
performs that function each time the program needs it> the 
function can be coded once and defined as a subroutine. The 
subroutine can then be executed from as many points in the 
application program as required. 

The subroutine capability is provided by the following 
i nstr uct i ons '• 

CALL Transfers control to a subroutine 

RETURN Returns control from the subroutine to the calling 
program 

SUBROUT Defines the entry point and parameters of a 
subrout i ne 

USER Allows inline or subroutine use of instructions 
written in Series/1 assembly language 

CALLFORT Transfers control to a FORTRAN program or subroutine 
from an Event Driven Language program 
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Queue Processing 



You can use the Eve*nt Driven Language queu.ing instructions to 
define queues and to access entries in'queues. You must define 
the size of a queue by specifying the number of entries it can 
hold. The following queuing instructions are provided? 

DEFINEQ Establishes a queue 

LASTQ Retrieves entries on a last- i n-f i rst-out (LIFO) 
bas i s 

FIRSTQ Retrieves entries on a first-in-first-out (FIFO) 
bas i s 

NEXTQ Adds an entry to a queue 



Timers 



If you have the hardware timer feature installed on your 
Series/1 4953 or 4955 processor* or if you have a 4952 process- 
or> you can include support in your Event Driven Executive 
supervisor providing several timing functions that can be used 
by application programs. In addition to maintaining a time of 
day clock* the system also provides a time interval (elapsed 
time) clock* and has the capability of suspending task exe- 
cution (entering the wait state) for specified lengths of time. 
The system also provides interrupts at the end of a time inter- 
val . 

The time-of-day (TOD) clock is maintained in hours* minutes* 
and seconds. At initial program load (IPL)» the clock is all 
zeros and begins running. You can set the actual clock time 
using the $ T operator command function or with instructions in 
an initialization routine that you write* and the system will 
maintain clock time from that point on. The timer-related 
instructions are listed below: 

GETTIME Moves the time of day values into an application pro- 
gram 

INTIME Reads the relative clock value (elapsed time since 
IPL) into an application program and computes 
elapsed time (since a previous INTIME) 

STIMER Starts the timer running for the specified time 
interval for a specific application task. When the 
interval expires* an ECB is posted. 
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TIMER Defines the timer feature (#7840) address during 
system generation 

PRINTDATE Prints the date on the terminal 

PRINTIME Prints the time of day on the terminal 

Serial Resource Control 



A resource* a physical or logical entity within the system* can 
be a subroutine* a data area within a particular program* or a 
data set or I/O device known across the system. A resource can 
be shared (used) by more than one task at the same time. For 
example* a table of constants might be referenced from two or 
more asynchronously executing tasks within a program. Since* 
by definition* the values in the table are constant (that is* 
read only)* access to the table (resource) is unrestricted. 

Unrestricted access to some shared resources can be undesira- 
ble. For instance, if a task were updating a disk data set, and 
other tasks had free access to the data set, the state of the 
data set is unpredictable. In this case, the data set is a 
shared serially reusable resource -- one that is shared but 
should be used by only one task at a time. 

With Event Driven Language instructions* you can gain exclu- 
sive use of a serially reusable shared resource, and retain 
control over that resource until explicitly releasing it for 
use by other tasks. These instructions are: 

DEQ Frees the resource and gives control of the resource 
to the longest waiting task* regardless of priority 

ENQ Acquires exclusive control of a shared serially 
reusable resource -- one that is shared but should be 
used by only one task at a time. 

QCB Generates a resource control block 



Task Error Exit Facility 



During the execution of a task* exception conditions may occur 
either in the task itself or in the hardware. The Series/1 
signals the Event Driven Executive supervisor when these con- 
ditions arise. Then* the supervisor* for most programs, per- 
forms a system default action to clear the condition. While 
the system response to exceptions is usually desired, it may be 
inappropriate for some programs. For these programs, the 
supervisor provides a method, the Task Error Exit facility* for 
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tasks to gain control at a point specified by the task when an 
exception occurs. Pertinent status information is provided to 
the error exit routine so that it may take action to correct the 
exception and, if possible, continue. 



Single Task Program 



For most applications, a complex program structure is not 
required, and programs will consist of a single task in a sin- 
gle program, as shown in Figure 1 



PROGA 



Program as single task 

• No execution overlap within program 

• Program competes for system resources 
with other tasks currently in system 



Figure 1 . Single task program structure 



Figure 2 on page 35 is an example of the type of application 
that lends itself to the single task program structure. The 
job is basically sequential and will be waiting for operator 
input most of the time. Since there is no requirement for asyn- 
chronous execution of functions or I/O overlap with process- 
ing, nothing can be gained by a more complex structure. 



Multiple Task Programs 



Figure 3 on page 36 illustrates multitasking in a single 
program. PROGB, the first task in the program, is started by 
the system when the program is loaded, and is called the ini- 
tial task. The other tasks shown in PROGB will not start until 
a command is executed that tells the tasks to begin. The ini- 
tial task within a program commences execution when the program 
is loaded into storage. Initiation of additional tasks is per- 
formed by any other active task; the means of initiation are 
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Operator request loads 
CUSTOMER FILE UPDATE 
program 



UPDATE 

1. GET CUSTOMER NAME FROM TERMINAL 
(OPERATOR INPUT) 

2. SEARCH CUSTOMER FILE FOR NAME 

3. READ CUSTOMER RECORD 

4. DISPLAY CUSTOMER RECORD ON TERMINAL 

5. ACCEPT UPDATE FROM TERMINAL (OPERATOR 
INPUT) 

6. WRITE UPDATED RECORD TO CUSTOMER FILE 



GO BACK TO STEP 1 IF MORE RECORDS TO 
UPDATE 



8. ELSE, END UPDATE PROGRAM 



Figure 2. Single task application example 



discussed in the next section. 

Once in execution? all tasks within a program compete with one 
another for system resources* and with all other tasks active 
in the system. The supervisor considers each task as a 
discrete unit of work, and assigns processor time based on task 
priority, regardless of whether a task is the initial task of a 
program. All tasks compete equally for resources. 



An Example of Multiple Programs and Multiple Tasks 



Figure 4 on page 37 explains how the supervisor controls the 
execution of multiple tasks. 
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PROGA 



TASKX 



TASKY 



TASKZ 



Program made up of multiple tasks 

• Concurrent (asynchronous) execution 
of tasks within program 

• Tasks compete for system resources 
with all other tasks currently in system 



Figure 3. Multitasking program structure 

The figure has the following components: 

A The resident supervisor consists of: 

B The instruction routine library consisting of the rou- 
tines invoked by the emulator for the various applica- 
tion program instructions. 

C Routines to service interrupts generated by I/O devices* 
process interrupts, timers, etc. 

D I/O operation routines, general supervisor function 
rout i nes , etc . 

E The emulator and dispatcher examine each instruction 
definition in the application programs then pass control 
to the appropriate instruction execution routine in B to 
perform the specified function. This section also per- 
forms the supervisor functions WAIT/POST, ENQ/DEQ, and 
ATTACH/DETACH to ensure that the highest priority ready 
task is being executed. 

F PR0GRAM1, an application program, has been loaded into main 
storage from disk or diskette by the multiprogramming fea- 
ture (not shown) of the supervisor, A. PR0GRAM1 is composed 
of three tasks, each represented by a vertical column of 
rectangles. Each rectangle in a column is the string of 
constants generated by the assembly of an instruction. The 
instructions shown are for illustration purposes only. 

G PR0GRAM2, another application program, has also been loaded 
for execution. PR0GRAM2 is composed of two tasks shown in a 
manner similar to PR0GRAM1. 
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Supervisor 




ATTACH/DETACH 
WAIT/POST 
QUEUE/DEQUEUE 4 • 



Emulator ^y 
Supervisor/Dispatcher 



User 
tasks 



ADD A.B 



IF A,GT,B 



MOVE A,0-.-*J 



_r* Waiting Ready ; ; • 



WAIT 



D0 5,TIMESl 



CALL S i ATTACH , STIMER 



AND l,J - Vi GOTO J -• i- 



WAIT 



WAIT 



POST 



PROGSTOP 



DETACH 



Priority- 200 

State— Executing 
TASK1 



150 
Waiting 
TASK2 



250 

Ready 

TASK3 



PROGRAM1 



225 200 

Ready Waiting 

TASK4 TASK5 

PROGRAM2 



© 



Figure 4. Executing multiple programs and multiple tasks 
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Figure 4 shows the following information 
execut i on : 



concerning program 



• Task states 

• Names 

• Assigned task priorities* each shown at the bottom of each 
task . 

TASK1 is currently executing (active); only one task at a time 
can execute. TASK1 has a priority of 200, which is higher than 
the priorities of the other two tasks READY for execution 
— TASK3 with a priority of 250 and TASK4 with a priority of 225. 
Priorities allowed are 1 through 510, with 1 being the highest 
priority. 

TASK1 is executing a MOVE instruction. The emulator has 
decoded the instruction and passed control to the MOVE routine 
within the supervisor. The dispatcher will allow TASK1 to 
execute until one of the following occurs: 

• A task of higher priority becomes ready due to the 
occurrence of some event such as an external process inter- 
rupt or expiration of a time interval. 

• The task executing relinquishes control by issuing an 
instruction such as WAIT or DETACH, or by beginning an I/O 
operat ion. 

• The task executing is canceled or a program check occurs. 

TASK2 is in wait state and not available for dispatching as the 
active task until the event for which it is waiting occurs. 

TASK3 and TASK4 are ready for execution but have not been dis- 
patched since they are of a lower priority than the active 
task, TASK1 . 

TASK5 is currently in wait state, waiting for the expiration of 
a time interval. When the time interval expires, TASK5 will be 
placed in the ready state. However, it will not become the 
active task if TASK1 is still executing. 

When two tasks of equal priority are ready for execution, a 
first-in-first-out situation exists and the first task to 
become ready will execute until it relinquishes control. Then 
the second task will gain control and execute. 

The possible task states are.* 
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Inactive Task is detached or is not yet attached 
Waiting Task is waiting for the occurrence 

of an event 
Ready Task is ready* but is not the highest 

priori ty task 
Active Task is attached and is the highest 

priority task on its level 
Executing Task is using the processor 



A program can consist of one or more tasks. Normally* a program 
will consist of only one task unless its operation requires 
simultaneously active, independent functions (tasks). 



Multiple Program Structure 

An application program consists of a collection of one or more 
tasks. After an application program is prepared for execution* 
it is stored under a unique name on disk or diskette. A termi- 
nal operator can request that a program be loaded into storage 
and placed in execution by entering a request for the supervi- 
sor load utility ($L) and specifying the program name. 

Programs can also be loaded by executing a LOAD instruction in 
another program that is already in execution. When the super- 
visor receives a request to load a program* either from a 
terminal or a task already in execution, the supervisor: 

1. Finds the program on disk or diskette 

2. Finds a section of unused storage large enough to accommo- 
date the program 

3. Loads the program from disk or diskette 

4. Opens any data sets or program overlays 

5. Relocates the program into the unused area 

6. Starts the program's primary task 

Programs are dynamically relocated into storage as load 
requests are received, so the size and structure of your 
programs can have an effect on system throughput. 

Any program can be loaded by the operator* another program* or 
an overlay . 
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Overlays 



A program can have several overlay programs that utilize the 
same overlay area at different times during execution. An 
application that needs to be loaded quickly when requested can 
benefit by being implemented as an overlay. 

You can specify a program as an overlay in a main program with 
the Event Driven Language PROGRAM statement. At primary pro- 
gram load time, sufficient storage is reserved within the pri- 
mary program for the largest overlay. Overlay loads can thus be 
performed quickly by the system because the storage has already 
been prea 1 located . 

In Figure 5, the application is split into separate programs. 
P H A S E 1 , the primary program, loads the overlay programs 
(PHASE2, PHASE3, and PHASER) as requested. Nhen PHASE1 is 
loaded, the loader recognizes that overlay programs are refer- 
enced. The loader looks at each program that is designated as 
an overlay and reserves enough storage to hold PHASE1 plus the 
largest overlay program (PHASE3) as shown in Figure 6 on page 
41. 



PHASE1 

application 

program 



PHASE1 



PHASE2 



PHASE3 



PHASE4 



Figure 5. Program over lays 
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Space for 
PHASE1 plus 
overlay area 
reserved 
when PHASE1 
is loaded 



Series /1 storage 



Supervisor 



PHASE1 
(Overlay area) 



(Available 
storage) 



Overlay area large 
enough for PHASE3, 
the largest overlay 
program 



Figure 6. Program overlays in Series/1 storage 



PHASE2 is loaded when PHASE1 issues a LOAD statement referenc- 
ing PHASE2. The system loads PHASE2 into the overlay area 
already reserved and PHASE2 starts executing. There is no con- 
tention for the storage with other applications that are wait- 
ing to be loaded in the overlay area because the overlay area is 
reserved for the exclusive use of PHASE1 overlay programs. 

As each overlay program completes execution* PHASE1 loads the 
next overlay? until all required programs have run. When 
PHASE 1 terminates execution? the storage reserved for PHASE1 
and its overlays is released. 



Program Loading and Task Execution 



Programs are ready for execution when they are loaded into 
storage from disk or diskette. A program will not execute imme- 
diately unless its primary task has a higher priority than the 
currently executing task. Programs are loaded when you issue 
the $L operator command or when a LOAD instruction is executed 
in a task that is in execution. In either case? the program to 
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be loaded is referenced by the name under which it is stored on 
disk or d i skette . 

Multiple copies of the same program can be in storage and 
active at the same time. A program can be loaded from one or 
more terminals* from one or more programs already executing* or 
as an overlay by an executing program. 



STORAGE MANAGEMENT 



With the address relocation translator feature on your 
Series/1, the supervisor can provide storage management sup- 
port for main storage sizes up to 256K bytes (IK = 1024 bytes). 



Storage and Partitions 



You can divide storage not used by the supervisor into parti- 
tions. A partition is a contiguous fixed length area of stor- 
age which can be used for the execution of disk or diskette 
resident programs. You can define up to eight partitions for 
the 4955, two partitions for the 4952, and one partition for 
the 4953. 

Each partition can contain more than one program simultaneous- 
ly, within the limits of the storage assigned to each parti- 
tion. Each partition must be defined as an address space in 
some multiple of 2K bytes. 

You can specify the storage size of the processor, the number 
of partitions, the maximum number of programs allowed in each 
partition concurrently, and the storage to be assigned to each 
partition. 

The supervisor is always located in partition one. The storage 
you use in partition one is limited to 64K bytes minus the num- 
ber of bytes occupied by the supervisor. All other partitions 
have a maximum size of 64K bytes, within the limits imposed by 
the amount of storage available. It is also possible to log- 
ically prefix part of the supervisor onto each partition using 
the mapping capabilities of the address relocation feature. 
However, this option limits the size of each of your partitions 
to 64K bytes minus the size of the prefixed portion of the 
supervisor. 
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SYSTEM CONTROL BLOCKS 



System control blocks are used by the Event Driven Executive 
and are not to be altered in your application programs. 
Exceptions to this rule can be found in the Language Reference 
and Communications and Terminal Applications Guide. 
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CHAPTER 3. DATA MANAGEMENT 

This chapter discusses data management concepts and proce- 
dures. Among the topics covered are: 

I/O f unct i ons 

Direct access storage devices 

Disk and diskette functions 

Tape f unct i ons 

Data set naming conventions 

Storage capacities 

Volume and library definitions 

The chapter first presents specifics of data management* then 
discusses the utilities with which you can modify data, and 
concludes with system concepts and application requirements. 

I/O FUNCTIONS 

Terminal Support 



Terminal support is designed to be device independent. With 
few exceptions, you need not be concerned with the type of 
device. The same sequence of terminal output instructions, for 
instance, can be used to print data on a matrix or line printer, 
on a locally attached Teletype device, on a remote terminal, or 
to display the data on an electronic display screen device. 

Terminals are defined to the system during system generation. 

The high degree of device independence is achieved in part by 
treating all terminals as though they were line printers that 
differ only in their page sizes (forms length) and margin set- 
tings. The multi-terminal support provides instructions 
allowing interactive communications between you and your 
application programs. Terminals supported are the 49 78 and 
4979 display stations, the IBM 3101 Display Terminal, 4973 and 
4974 printers, 2741 Communications Terminal, other Series/1 
computers, the 5100 and 5110, the Tektronix #4013 3 DI/DO 
Parallel Interface terminals, and teletypewriters and equiv- 
alent dev i ces . 
3 Registered trademark of the Tektronix Corporation. 
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The terminal used by a program is the same terminal that was 
used to invoke the program. Therefore* the terminal assigned 
can vary from one program invocation to the next* with no 
change to the application program. 

Terminals are referenced by symbolic name and accessed through 
various instructions. Forms and screen format control can be 
dynamically changed within your program and the 4978/4979 
display screen can be copied to a hard copy terminal at any 
pointintheprogram. 



Terminals with Special Control Characters 



Terminals that have special control characters and/or hardware 
capabilities, such as graphics functions, are easily con- 
trolled by the terminal instructions. 

Graphic terminals which perform point-to-point vector drawing 
and comply with the screen coordinate algorithm are supported 
by the terminal instructions and a set of graphic control 
i nst r uct i ons . 



Terminal I/O 



When a program is loaded from a terminal, that terminal is 
dynamically designated by the system as the terminal to be used 
by terminal I/O instructions in the program. Each terminal I/O 
instruction has exclusive use of the terminal while executing, 
and extended control can be requested for multiple I/O oper- 
at i ons . 

If more than one task is using the terminal, terminal oper- 
ations from different tasks could become interspersed. When 
this is not desirable, you can reserve the terminal for the 
exclusive use of a task, thereby preventing other tasks from 
using the terminal until the task releases it. You can gain 
exclusive control of any named terminal in the system. 

Three symbolic terminal names are used by the supervisor for 

system utility programs: 

$SYSLOG Names the system logging device or operator station, 
and must be defined in every system. In the starter 
supervisor, SSYSLOG defines a 4978 display station. 

$SYSLOGA Names the alternate system logging device. If unre- 
coverable errors prevent use of SSYSLOG, the system 
will use the $SYSLOGA terminal as the system logging 
device/operator station. If defined, this device 
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should be a terminal with keyboard capability, not 
just a printer. The starter supervisor defines the 
$SYSLOGA terminal as a teletypewriter device. 

$SYSPRTR Names the system printer. If defined, the hard copy 
output from some system programs will be directed to 
this device. The starter supervisor defines a 49 74 
printer as the $SYSPRTR device. 



Terminal Definition and Control Functions 

ATTNLIST Provides entry to one or more of your asynchronous 
attention interrupt handling routines. Produces a 
list of command names that you have defined and their 
associated entry points 

DEQT Releases a terminal from exclusive use 

ENQT Acquires exclusive access to a terminal 

ERASE Clears designated portions of STATIC type screens 

FORMAT Describes the type of conversion to be performed on 
data 

GETEDIT Moves data from a terminal, converting it according 
to a FORMAT specification 

GETVALUE Reads one or more integer values that are entered by 
the terminal operator 

IOCB Describes the attributes of a terminal 

PRINDATE Prints the date on the terminal 

PRINTNUM Converts a floating-point variable or integer vari- 
able to printable form, and writes it on the terminal 
with an optional format specification 

PRINTEXT Writes an alphameric text string to a terminal 

PRINTIME Prints the time of day on the terminal 

PUTEDIT Moves data from storage to a terminal, converting it 
according to a FORMAT specification 

QUESTION Prints a message and queries the operator for a Y 
( yes ) or N (no ) 

RDCURSOR Reads the current cursor position 
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READTEXT Reads an alphameric text string from the terminal 

TERMCTRL Provides support for special terminal control 
features, some of which are device dependent 

TERMINAL Defines each input or output terminal attached to 
the system, including printers. Use this statement 
only during system generation. 

WAIT Causes the issuing task to wait until the operator 
depresses an ENTER key or a PF key. Specified in 

association with the KEY option 



Sensor I/O 



Sensor I/O is used in a variety of application areas, including 
process control, laboratory automation, and plant automation. 
Sensor I/O devices available on the Series/1 are as follows: 



Digital Input /Output 



A unit of digital sensor I/O is a physical group of sixteen con- 
tiguous points. The entire group of sixteen points is accessed 
as a unit on the I/O instruction level: programming support 
allows logical access down to the single point level. 

Digital input (DI) is usually used to acquire information from 
instruments which present binary encoded output, or to monitor 
contact /switch status (open /closed). Digital output (DO) is 
used to control electrically operated devices through closing 
relay contacts, such as pulsing stepping motors. 

Process interrupt (PI) is a special form of digital input. If a 
point of digital input changes state, and then changes state 
again, without an intervening READ operation from the program, 
the status change will be undetected. With process interrupt, 
a point changing from the off state to on generates a hardware 
interrupt, which is then routed through software support to an 
interrupt servicing application program that can respond to 
the external event which caused the interrupt. Process inter- 
rupt is often used for monitoring critical or alarm conditions, 
which must be serviced quickly, the occurrence of which must 
not go undetected. 
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Analog Input/Output 

A physical unit of analog input (AI) can be a group of eight 
points or sixteen points* depending on the type. Analog output 
(AO) is installed in groups of two points. Each point of analog 
input or analog output is accessed separately. 

Analog input is used to monitor devices that produce output 
voltages proportional to the physical variable or process 
being measured. Examples include laboratory instruments* 
strain gauges* temperature sensors* or other non-digitizing 
instruments. Digital input was described as monitoring an 
on /off status* only two conditions were possible. With analog 
input* the information is carried in the amplitude of the volt- 
age sensed rather than in its presence or absence. 

The starter supervisor contains no support for sensor I/O. You 
must do a tailored system generation to include the required 
support modules in your own supervisor. 

Figure 7 on page 50 shows how sensor devices are connected to a 
Series/1 through the 4982 sensor I/O unit. The devices (DI» DO* 
PI* AO* and AI) attach to a controller* which in turn attaches 
to the Series/1. The sensor I/O attachment (controller)* and 
each of the devices attaching to it, have unique hardware 
addresses. In this figure* the physical connections are there* 
and the hardware addresses are assigned (wired in)* but the 
starter supervisor in storage lacks the support necessary to 
operate the devices. 
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Series/1 

Supervisor 
with 

sensor I/O 
support 



Sensor I/O 
attachment 




Address 68 




Digital output 
group address 70 



Digital output 
group address 71 



Digital input 
group address 72 



Figure 7. Sensor device connections 



Building a tailored supervisor involves the assembly of a 
series of system configuration statements that reflect the I/O 
configuration you wish to support. For more information on sys- 
tem configuration statements, refer to "Chapter 6. System 
Configuration" on page 75. When programs reference these 
devices, they use symbolic references, rather than actual 
addresses. The I/O definition statement (IODEF) establishes 
the logical link between the addresses defined in the supervi- 
sor, and the symbols used to read from and write to the devices 
at those addresses from an application program. 

All sensor-based input/output operations are performed by exe- 
cuting a Sensor Based I/O (SBIO) instruction. The type of oper- 
ation is determined by the type of device referenced in the 
instruction. For more information on the SBIO statement, refer 
t o Language Reference . The symbolic reference to a logical 
device in the SBIO statement is linked to the definition in the 
IODEF statement, which relates that device to the hardware 
address specified by the system configuration statement at 
system generation time. 
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Sensor Based I/O Definition and Control Statements 



IODEF An Event Driven Language instruction that estab- 
lishes the logical link and definition of subgroups 
of sensor based I/O devices defined in the supervi- 
sor and the symbols used to read from and write to 
the subgroups . 

SBIO An Event Driven Language instruction that performs 
analog and digital input/output operations. 

SENSORIO A system configuration statement that defines the 
hardware device addresses for the supervisor. 

SPECPIRT An Event Driven Language instruction that provides 
return linkage from the special process interrupt 
routines specified in the IODEF instruction. 



THE EXIO INTERFACE 



The EXIO interface permits you to directly control the oper- 
ation of Series/1 devices. You supply the immediate device 
control blocks (IDCBs) and Device Control Blocks (DCBs) that 
are required for I/O operations to be performed. This allows 
close control of performance and response time. Any device 
meeting the standard I/O interface, attached to the Series/1 
can be controlled through the EXIO interface. To use the EXIO 
interface, the programmer should be familiar with assembler 
language coding, I/O programming in general, and the devices 
involved in the I/O operations. 



Definition and Control Statements 



The instructions and statements necessary to use EXIO are: 

DCB An Event Driven Language instruction that creates a 
Device Control Block 

EXIO An Event Driven Language instruction that requests 
execution of an I/O command 

EXOPEN An Event Driven Language instruction that specifies 
the device addresses to which EXIO commands will be 
d i rected 

EXIODEV A system configuration statement that defines the 
devices to be supported via the EXIO interface 
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IDCB An Event Driven Language instruction that creates an 
Immediate Device Control Block 



DIRECT ACCESS STORAGE ORGANIZATION 



The following definitions are used by the Event Driven Execu 
t i ve . 



Sector 



The smallest addressable unit of storage on a disk or diskette 
is known as a sector (or a record on the 4963). Sectors on a 
4962 disk and records on a 4963 contain 256 bytes of data. 
Therefore* a 4962 sector and a 4963 record are equivalent to a 
record. Diskette sectors can be either 128, 256, 512, or 1024 
bytes long. However, in the Event Driven Executive system the 
IBM standard for information interchange* 128 bytes, has been 
adopted. Therefore, two diskette sectors equal one record. 
This is handled within the system and you refer only to 256 byte 
records. 



Volume 



A volume is a physical direct access storage device, or a 
subset of a physical direct access storage device. You can 
assign a name, or volume label, to each volume. The volume 
label must be 1-6 alphameric characters. A volume begins on a 
cylinder boundary and contains an integral number of cylin- 
ders. The maximum volume size in records is 32,767. A fixed 
head area, if it exists, is defined as another volume. 

Volumes containing programs or macros are usually called 
libraries. A library is the collection of data and programs and 

the directory used to access them. 



Directory 



A directory is a series of contiguous records at the beginning 
of a library. The directory describes the library contents in 
terms of allocated data sets, programs, and free space. 
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Data Set 

A data set i s »a group of contiguous records which have been 
allocated — reserved and assigned collectively. The data set 
name consists of 1 to 8 characters. No special restrictions 
exist within the system for valid names but the system utility 
programs require a name consisting of alphameric characters 
for access and allocation. 

A data set* or member of a library* can contain either data or 
an executable program. These data sets may also be partitioned 
data sets when allocated with the $PDS utility. $ P D S defines 
members as a group of contiguous records within the partitioned 
data set which have been allocated and assigned a name. 



Record 



A record is the basic unit of direct access storage available 
to an application program. The records are fixed* unblocked* 
and 256 bytes long. Data set records are numbered beginning 
with one . 



Access 



Data set access routines are available within the supervisor 
for multiple diskettes and disks* with or without fixed head 
features. File access is either sequential or direct. Multiple 
logical volumes can be created on any physical disk drive. 

Note t A diskette is always a single volume. 

When a program is first loaded for execution* all of the 
defined data sets are opened for access (reading or writing)* 
beginning with record number 1. Sequential and random access 
operations can be mixed. For instance* if five sequential READ 
instructions of one record each have been issued to a data set* 
then the next sequential operation will involve record number 
six. A random access READ could be issued for some other 
record* say record 23* and the next sequential operation would 
still take place with record 6. 

Volumes on disk devices are defined during system generation* 
using the DISK configuration statement. For further informa- 
tion on the DISK configuration statement* refer to "Chapter 6. 
System Configuration" on page 75. Diskette volumes are defined 
with the utility program $INITDSK. Refer to the Ut i 1 i t i es » 
Operator Commands* Program Preparation, Messages and Codes for 
a discussion of $INITDSK. 
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DISK AND DISKETTE FUNCTIONS 



The following instructions are provided for disk and diskette 
f unct i ons : 

DISK Defines each direct access storage device and the 
volumes it contains. Use the DISK statement only 
during system generation 

NOTE Saves the next record pointer in a program location 
that you def i ne 

POINT Sets the next record pointer from a program variable 
that you define 

READ Transfers one or more 256-byte records from disk or 
diskette to the requester's storage 

WRITE Transfers one or more 256-byte records from the 
requester's storage to disk or diskette 

The DSCB statement generates a data set control block (DSCB) 
which provides information required to access a data set. 

The $DISKUT3 data management utility provides execution time 
support that allows you to allocate* delete* open* and rename 
data sets. It also allows you to release space from a data set. 



54 SC34-0312 



4962/4963 



4964/4966 



Primary 
volume 



I llEDXVOSl 




Each 

volume 

contains 



■*-< 



Directory 
and 

data sets 
(library) 



DIRECTORY 



DS1 



DS2 



DS3 



DS4 



Data set contains 
256 byte records 



Two 1 28 byte 
sectors on 
diskette 
(transparent 
to user) 





One sector 
on 4962 



One-half 
sector on 4963 
(transparent 



to user) 



Figure 8. DASD logical organization 



In addition to the single primary volume required for each disk 
storage unit* as many secondary volumes as required can be 
defined (within the physical limits of the device). As with 
primary volumes* secondary volumes are defined at system 
generation using DISK configuration statements and are 
initialized by the OINITDSK utility. 
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Volumes can also exist on diskette. Each diskette has a sepa- 
rate volume occupying the entire diskette. Diskette volumes 
are also initialized using the $INITDSK utility. 



| TAPE FUNCTIONS (VERSION 2 ONLY) 

| The following instructions are provided for tape functions? 

TAPE Defines each tape device to be used on the system. 
Use the TAPE statement only during system generation 

NOTE Saves the next record pointer in a program location 
that you def i ne 

POINT Sets the next record pointer from a program variable 
that you def i ne 

READ Transfers records of 18 to 32767 bytes in length from 
tape to the requester's storage 

WRITE Transfers records 18 to 32766 bytes in length from 
the requester's storage to tape 

CONTROL Allows physical manipulation, such as; forward or 
backward spacing of records or files and the writing 
of tapemarks . 

The DSCB statement generates a data set control block (DSCB) 
which provides information required to access a data set. 

The $TAPEUT1 utility allows you to allocate tape data sets and 
copy data sets or volumes from disk or diskette to tape, tape to 
disk or diskette, or tape to tape. The utility also allows you 
to change tape attributes. 

For information on tape organization see "Chapter 11. Tape 
Organization" on page 233. 



DATA SET NAMING CONVENTIONS 



Data sets are specified for system use at one of four times: 

1. When coding a PROGRAM instruction and completing the DS= 
operand 

2. When coding a LOAD instruction and completing the DS= oper- 
and 
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3. When a program is loaded by the $L operator command 

4. During execution of some system utility programs 

A general data set specification consists of two parts? 

1. The data set name (dsname) 

2. An optional volume label (volume) which specifies the vol 
ume on which the data set resides 

The format for a data set spec i f i cat i on i s : 



dsname > volume 



The volume specification is optional and if not specified* the 
system assumes that the target data set resides on the primary 
volume on the direct access device from which the system was 
IPLed. 

dsname An alphameric character string of eight characters. 
When fewer than eight characters are specified* 
blanks are added to the string. 

volume An alphameric character string of six characters. 
To locate the volume on a disk* it must have been 
defined in the VOLSER= parameter of a DISK config- 
uration statement in the system I/O definition. To 
locate the volume on a diskette or tape* the TAPE or 
DISK statement must be in the system I/O definition 
and the volume name loaded into the system by issuing 
the operator command OVARYON* specifying the 
diskette or tape device address. The diskette must 
have been initialized by $INITDSK. Tapes must be 
initialized by the $TAPEUT1 utility. When fewer than 
six characters are specified* blanks are added to 
the right to complete the string. 

Two special data set names are known to the system and must be 
used with care: 

$$EDXVOL Used to obtain absolute record reference to an 
entire volume on disk or diskette. 

$$EDXLIB Used to obtain absolute record reference to the 
beginning of the volume directory on disk or 
diskette within a volume. 
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STORAGE CAPACITIES 



Di sk/Di skette 



The following table summarizes storage capacities of the vari 
ous Series/1 direct access storage devices. 



Dev i ce 


Storage 
capac i ty 
( records ) 


Cyl/dev 


Log i cal 
rcds/trk 


Trk/cyl 


Volume max 
(cyls) 


Single-sided 
(type 1) 
d i skette 


949 


77* 


13 


1 


73 


Double-s i ded 
(type 2) 
diskette 


1924 


77* 


13 


2 


74 


4962 disk 

-1 

-IF 

-2 

-2F 

-3 

-4 


36120 
36600 
36120 
36600 
54180 
54180 


303** 


60 
60 
60 
60 
60 
60 


2 
2 
2 
2 
3 
3 


273 
273 
273 
273 
182 
182 


4963 disk 

-23 

-29 

-58 

-64 


92160 
114560 
229632 
252032 


360*** 


64 
64 
64 
64 


4 

5 

10 

11 


128 

102 

51 

46 














* 73 cylinders are available for data (001-073) on 
type 1 diskettes. 74 cylinders are available for 
data (001-074) on type 2 diskettes. On both types, 
2 cylinders are reserved for alternate tracks and 1 
cylinder is reserved for IPL and volume identification. 

** 301 cylinders are available for data (000, 002-301); 
cylinder 001 is reserved for alternate sector 
assignments; 302 is reserved for CE use. 

*** 358 cylinders are available for data (0-357), 
while cylinder 358 is reserved for alternate 
sectors and cylinder 359 is reserved for CE use. 
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Tape 



The following figure summarizes approximate storage capacities 
for 800, 1200t and 2400 foot tape volumes. The Event Driven 
Executive 4969 Magnetic Tape Subsystem supports 18 to 32,767 
byte records. The record lengths depicted are used for illus- 
trative purposes only. These estimates are approximate and are 
based on the hardware specifications for the 4969 tape drive. 
(Refer to IBM Series/1 4969 Magnetic Tape Subsystem 
Description , (GA34-0087) for more detailed information.) Use 
these estimates to calculate the size of the reel or volume 
needed to fulfill your requirements. 



TAPE CAPACITY 






NUMBER OF RECORDS 


Tape length 




800 BPI 


1600 BPI 






800 feet 








256 byte 


records 


10,078 


11,411 


1024 byte 


records 


5,019 


7,265 


8192 byte 


records 


882 


1,654 


1200 feet 








256 byte 


records 


15, 118 


17,117 


1024 byte 


records 


7,529 


10,898 


8192 byte 


records 


1,324 


2,482 


2400 feet 








256 byte 


records 


30,236 


34,234 


1024 byte 


records 


15,058 


21,797 


8192 byte 


records 


2,648 


4,964 



DEFINING VOLUMES 



Volumes and libraries are defined at system configuration 
time. The system handles disks, diskettes and tapes different- 
ly, as described below. 
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Diskette 



One; and only one, 'volume is defined for each 4964 diskette 
drive to be known to the supervisor. However, for the 4966 
Diskette Magazine Unit, up to 23 diskette volumes can be 
mounted. The diskette mounted in slot one is considered the 
primary volume; the rest of the diskettes are secondary vol- 
umes. Because diskettes are mountable storage media, the actu- 
al volume label, library origin, and library size must be 
determined by the system each time a new diskette is mounted. 
This is accomplished through the operator command SVARYON. 
Volume labels are recorded on each diskette in accordance with 
IBM Standards for Information Interchange. 



Disk 



At least one volume is defined for each 4962 or 4963 disk drive 
to be known to the supervisor. Because volume size is limited 
to 32,767 records, several volumes must be defined per disk to 
be able to use the entire storage capacity. 

The first defined volume, the primary volume, has its origin at 
cylinder zero. Because certain records and cylinders are 
reserved for system use, the library associated with a primary 
volume cannot begin with the first record. 



The library origin of additional volumes, called 
volumes, can be the first record in the volume. 



secondary 



For example, addressability of an entire 4962 disk 
established with the following definitions: 



could be 



Volume origin Volume size Library origin 
(cylinder #) (cylinders) (record #) 



Pr i mary 



153 



241 
( cyl i nder 2 ) 



Secondary 



153 



150 



Volume labels for all disk volumes are maintained within the 
supervisor and are not physically recorded on the device. 

The following table summarizes the library origin for primary 
and secondary volumes. 



60 SC34-0312 









Li 


brary ori 

Pr i mary 
volume 


qin 


Secondary 
volume 




Si ngle-si d 
Di skette 


ed 






14 




N/A 


Double-s i d 
Di skette 


ed 






27 




N/A 


4962 Disk 
Mode Is 
1, 2 
IF, 2F 
3, 4 








241 
241 
361 




1 
1 
1 


4963 Disk 
Models 
29 
23 
64 
58 








129 
129 
129 
129 




1 
1 
1 
1 


N/A means 


not 


appl 


i cab le 









Figure 9. Library origins 



The fixed-head area of a 4962-1F, 4962-2F, 4963-23, or 4963-58 
is automatically defined as a secondary volume by the DISK con- 
figuration statement; you are required to specify an associ- 
ated volume label. Use the FHVOL parameter of the DISK 
configuration statement to assign the volume label. The fixed 
head volumes contain 480 records on the 4962 and 512 records on 
the 4963. The library origin on both devices is record one. 

A fixed head volume is treated in a special manner: 

• During the disk initialization part of IPL, each data 
record is read and rewritten to reduce the probability of 
errors . 

• If the IPL device is a disk with fixed heads, the system, 
during the loader initialization part of IPL, searches the 
fixed-head volume for the transient loader routine $L0AD- 
ER. If it is found, it is used for program loading, thereby 
providing the fastest and most constant loader perform- 
ance. If $L0ADER is not present, the system attempts to 
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locate it » n the IPL device's primary volume. 



| Tape (Version 2 only) 




m 
e 
m 

each time a tape is mounted. The operator command $VARYON 
causes a tape to be mounted. For more information on tape 
labels and volumes* refer to "Chapter 11. Tape Organization "on 
page 233 . 
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CHAPTER 4. OPERATOR COMMANDS AND UTILITIES 



OPERATOR COMMANDS 



When the ATTN key on a terminal is pressed, the system responds 
with the prompt character* >. 

The operator commands that can be entered are: 

$A Displays the names and load points of 

all programs that are active within the 
partition to which the requesting ter- 
minal is currently assigned 

$B Completely erases (blanks) all pro- 

tected and unprotected areas on the 
screen of the requesting terminal 

$C Cancels a program and frees the storage 

that it occupied 

$CP Changes a terminal's partition 

ass i gnment 

$D Displays the contents of storage in 

hexadec i mal 

$E Advances the system printer to the top 

of form (performs a page eject) 

$L Loads a program 

$P Patches storage locations 

$T Sets date and time for the 24-hour sys- 

tem clock/calendar. It can be used only 
from terminals named $SYSLOG or 
$SYSLOGA. Operator input is not vali- 
dated by the supervisor. 

$VARYOFF Places a disk, diskette, or tape in 

of f 1 i ne status 

$VARYON Places a disk, diskette, or tape in 

online status 

$W Displays the 24-hour clock and the date 

You may add attention interrupt handling routines by using the 
ATTNLIST statement. When you code the statement, you provide 
your command name and its address. This command name may then 
be entered whenever the system issues the > prompt. 
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UTILITIES 

The utilities provide productivity aids for Series/1 applica- 
tion program development* program maintenance, and distributed 
processing functions with a host System/370. These utilities 
are independent program load modules capable of running con- 
currently with other application programs or utilities. Types 
of utilities are: 

Data Management utilities 

Communication utilities. 

Text editing utilities 

Diagnostic utilities 

Graphics utilities 

Terminal utilities 

Program preparation utilities 



Data Management utilities 



Data Management utilities can define, patch, dump, delete, 
rename, compress, copy, and initialize data sets. The follow- 
ing Data Management utilities are available: 

$COMPRES Compresses libraries 

$COPY Copies disk or diskette data sets or volumes 

$C0PYUT1 Copies disk or diskette data sets, dynamically 
allocating the receiving data sets 

$DASDI Initializes, formats, and verifies disks or 
d i skettes 

$DISKUT1 Allocates and deletes disk or diskette data sets; 
lists directory data 

$DISKUT2 Patches and dumps disk or diskette data sets; lists 
the hardware error log 

$IAMUT1 Builds and maintains Indexed Access Method data sets 

$INITDSK Initializes and verifies a direct access storage 
volume 
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$MOVEVOL Transfers volumes of data between systems and 
creates backup copies of an online data base 

$PDS Manages partitioned data sets 

$TAPEUT1 (Version 2 only) Prints tape records, copies data 
sets to or from tape, copies tape to tape, initial- 
izes tapes, dumps and restores disk devices on tape, 
and runs a tape exerciser as a hardware/software 
test 



Communication Utilities 



Communication utilities provide options for communicating with 
another processor and diagnostic aids for troubleshooting 
teleprocessing lines. Two facilities are available to commu- 
nicate with a System/360 or System/370: 

• The Host Communications Facility which requires the Host 
Communications Facility IUP on the System/ 360 or 
System/370 and provides direct two-directional transfer 
between host direct access data sets and Series/1 storage. 
Also, a job submission capability allows you, through a 
terminal on the Series/1, to invoke batch program exe- 
cution on the System/ 360 or System/370 host system. A 
point-to-point leased line and the BSC Single Line feature 
#2074 is required for Host Communications Facility oper- 
ation. 

• Host communications similar to IBM 2780/3780 remote job 
entry (RJE) capabilities to host RJE systems. (Refer to the 
Communications and Terminal Applications Guide for more 
information.) Data streams including either transparent or 
non-transparent data can be submitted to the host, as can 
single card image commands. Printed and /or punched output 
from the host can be stored in disk or diskette data sets or 
printed on any supported terminal attached to the 
Ser i es/1 . 

These utilities are: 

$BSCTRCE Traces I/O activities on a binary synchronous 
communication line. 

$BSCUT1 Formats binary synchronous trace files for printing. 

$BSCUT2 Checks out the binary synchronous communications 
access method . 
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$HCFUT1 Uses the Host Communications Facility on the 
Series/1 to interact with the Host Communication 
Facility on the System/ 370. 

$PRT2780 Prints spool records produced by $RJE2780. 

$PRT3780 Prints spool records produced by SRJE3780. 

$RJE2780 Allows communication between a System/360 or 
System/370 and a Series/1 by simulating an IBM 2780. 

$RJE3780 Allows communication between a System/360 or 
System/370 and a Series/1 by simulating an IBM 3780. 

$RMU Allows a user written HOST program to communicate 
with a remote Series/1 over a binary synchronous 
communications line. (Version 2 only) 



Text Editing Utilities 



The text editing utilities provide facilities for entering and 
editing source programs. 

$EDIT1 A line editor which allows you to enter and edit 
source programs while other programs are executing. 
$EDIT1 provides commands for data communication 
using the Host Communications Facility IUP on the 
System/370 so program preparation can be controlled 
from a Series/1 terminal. 

$EDIT1N A line editor which allows you to enter and edit 
source programs. It is the same as $EDIT1 except 
that it edits data that resides on Series/1 direct 
access volumes . 

$FSEDIT A full screen editor for entering and editing source 
programs using a 4978 or 4979 display terminal. The 
source may be located either on the Series/1 or on a 
host processor . 

The text editing utilities provide you with a line of the Sys- 
tem/370 OS/TSO text editing facility in the editors. The full 
screen editor provides a subset of functions similar to the 
System/370 Structured Programming Facility (SPF) full screen 
editor. 

In the full screen editor* functions such as browse* edit* and 
merge are provided. Additional commands are offered in both 
editors for read/write from or to source data sets on either 
the local Series/1 or a remote host System/370 with the Host 
Communications Facility IUP. This allows full control of pro- 
gram development from a Series/1 terminal. Full-screen edit- 
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ing is limited to the 4978 and 4 9 79 display terminals. 



Diagnostic Utilities 

The following diagnostic utilities are available: 

$DEBUG An interactive program debugging aid 

$DUMP Formats and displays the data saved by STRAP on an 
error cond i t i on 

$IOTEST Performs the following functions: 

• Tests the operation of sensor based I/O features 

• Lists the hardware configuration of the Series/1 

• Lists the devices supported by the supervisor 

• Lists volume information 

$LOG Logs I/O errors into a data set 

$TRAP Intercepts certain class interrupts and records the 
environment on a disk or diskette data set 

$DEBUG allows you to stop, modify* trace* and restart an appli- 
cation program with no impact on the execution of other pro- 
grams . 

The sensor I/O test utility ($IOTEST) allows you to exercise 
the sensor I/O (AI, AO, DI, DO, PI) devices on a Series/1. You 
can perform functions such as read/write digital input/output, 
write digital output with selected time intervals* and 
read/write analog. During any exercising function, which can 
be selected via a terminal command, trace printing is done to 
the terminal for each exercising option. 



Graphics Utilities 



The following graphics utilities are available: 

$DICOMP Generates and modifies displays using an online 
composer 

$DIINTR Uses an interpreter to display and process the data 

base 
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$DZUTIL Maintains the resulting data base 

Graphics utilities enable you to generate* maintain* and dis- 
play two- and three-dimensional fixed graphic backgrounds* and 
to store them in files. Access to these background files is 
available from your application programs. Realtime data can 
also be superimposed over the displayed fixed graphic back- 
grounds. 



Terminal Utilities 



The following terminal utilities are available: 

$FONT Creates and modifies character image tables for 4978 
display terminals 

$IMAGE Defines formatted screen images for 4978/4979 

display terminals 

$PFMAP Displays program function key assignments 

$TERMUT1 Alters logical device names* address assignments* or 
terminal configurations 

$TERMUT2 Loads control and image stores for a 4978 display 

$TERMUT3 Sends messages from one terminal to another 

The screen format builder utility ($IMAGE) enables you to 
design formatted screen images for static screens on the 
4 9 78/4 9 79 Display Stations. These images are generated inter- 
actively on a terminal and can be saved in disk or diskette data 
sets for later retrieval and use by application programs. 
Images previously stored on the disk or diskette can be 
retrieved and modified. 



Program Preparation Utilities 

The following program preparation utilities are available 
$COBOL Compiles COBOL Language programs 
$EDXASM Assembles Event Driven Language programs 
$EDXLIST Prints $EDXASM listings 
SLINK Link edits object modules 
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$PL/I Compiles PL/I Language programs (Version 2 only) 

$PREFIND A prefind capability for data sets and overlay pro- 
grams to shorten program loading time 

$S1ASM Assembles Series/1 assembler language and Event 
Driven Language programs 

$UPDATE Converts an object module into an executable program 

$UPDATEH Converts a host object module into an executable 
program 



The Job Stream Processor Utility 



The job stream processor utility can be used to invoke a prede- 
fined sequence of program preparation utilities and pass 
parameters to them. $JOBUTIL can be invoked by the Session 
Manager . 
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CHAPTER 5. PROGRAM PREPARATION FACILITY 



The Program Preparation Facility consists of an Event Driven 
Language assembler* a compilation listing program* and a link- 
age editor. The Program Preparation Facility has the following 
features : 

• Program Preparation Facility programs can run concurrently 

with other programs. 

• Multiple copies of the assembler* listing program* and 
the linkage editor can run concurrently. 

• Source programs can be stored on disk or diskette. 

• All references to programs and files are by symbolic names. 

The Program Preparation utilities can be invoked from any ter- 
minal and loaded into any available storage. Although any of 
the Program Preparation Facility programs can execute from a 
diskette based system* the limitations of file space and access 
speed severely restrict the program preparation capability. A 
disk-based system is recommended for an efficient* full capa- 
bility development system. 



EVENT DRIVEN LANGUAGE COMPILER 




The assembler uses a set of overlay programs which define and 
describe each instruction in the Event Driven Language 
instruction set. You can add new instructions to the assembler 
by writing additional overlay programs. 



LINKAGE EDITOR 



The output from the Series/1 Macro Assembler* the Event Driven 
Language assembler* the PL/I compiler, the FORTRAN compiler, 
or the COBOL compiler is input to the linkage editor After 
processing by the linkage editor* the relocatable object mod- 
ule must be converted to an executable program by $UPDATE. The 
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advantages of linkage editing are: 

• Large programs can be broken into smaller segments* 
improving development productivity and maintainability 



Series/1 macro assembler 
program 



routines can be included in the 



• Library modules* such as the Mathematical and Functional 
Subroutine Library or other object library routines* can 
be link edited with an Event Driven Language program. 

It is possible to bypass the link edit step. A single program 
module can be assembled with the Event Driven Language compiler 
if all the coding is done with Event Driven Language 
instructions. The resulting output must be converted to an 
executable program by the utility OUPDATE* even if the assem- 
bled object module contains no external references. However* 
when using $S1ASM to assemble Event Driven Language and/or 
assembler programs* the resulting output must be converted by 
SLINK to an acceptable format for input to SUPDATE. 
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PART II - SYSTEM GENERATION AND CONFIGURATION 



The creation of a customized supervisor is a two step process. 
Step 1 is a definition phase. Step 2 is the generation phase. 

In step 1, you define the configuration of the system by 
preparing configuration statements which describe the attri- 
butes of the devices (such as disks* diskettes, and terminals) 
you want your system to support. You also define the number and 
size of the partitions that will be available in your system. 
Configuration statements are described in "Chapter 6. System 
Configuration" on page 75. 

In step 2, you enter your configuration statements and assemble 
them. Then you modify the system-supplied INCLUDE file, 
SLNKCNTL, ensuring that all the support you require is built 
into the supervisor. The linkage editor combines the supervi- 
sor definition with the supervisor functions you selected to 
create a customized supervisor. 

The system generation process is described in "Chapter 7. Sys- 
tem Generation" on page 115. 
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CHAPTER 6. SYSTEM CONFIGURATION 

SYSTEM CONFIGURATION STATEMENTS 

The characteristics of your Series/1 installation are defined 
by configuration statements. They are used in the system gen- 
eration process only. 

BSCLINE - Define a binary synchronous line 

DISK - Define direct access storage devices 

EXIODEV - Define EXIO interface devices 

HOSTCOMM - Define host communication support 

SENSORIO - Define sensor I/O devices 

SYSTEM - Define processor characteristics 

TAPE - Define tape device (Version 2 only) 

TERMINAL - Define terminals 

TIMER - Define system timer feature 
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BSCLINE 



BSCLZNE - Define a Binary Synchronous Line 



BSCLINE defines the binary synchronous lines to be supported in 
the generated system. One BSCLINE statement is required for 
each line to be referenced by programs using the Binary Syn- 
chronous Communications Access Method. All BSCLINE statements 
must be grouped together with the last BSCLINE statement 
including an END=YES specification. (Refer to the 
Communications and Terminal Applications Guide *~~ 



description of the Binary Synchronous 
Method. ) 



Commun i cat i ons 



for a 
Access 



If Remote Management Utility is to be used* a BSCLINE statement 
i s necessary . 

Syntax 



blank 



BSCLINE ADDRESS=,TYPE=,RETRIES=,MC=,END= 



Required: None 

Defaults: ADDRESS=9 , TYPE=PT , RETR IES=6 , MC=NO , END=NO 

Indexable: Not Applicable 



Operands Descr i pt i on 

ADDRESS= The hardware address (in hexadecimal) of the line. 

TYPE= PT - The line is a point-to-point (non-switched) 
line with a single remote station. The adapter 
should be jumpered with DTR permanently enabled. 

SM - The line is on a switched network and con- 
nection will be established manually by the opera- 
tor. The adapter should be jumpered for switched 
line operation and DTR should not be permanently 
enabled . 

SA - The line is on a switched network and calls 
should be answered automatically by the BSC Access 
Method (during BSCOPEN). The adapter should be 
jumpered for switched line operation and DTR should 
not be permanently enabled. 
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BSCLINE 



MC - The Series/1 is the controlling station on a 
multipoint line. The adapter should be jumpered 
with DTR permanently enabled and multipoint line 
should not be jumpered. 

MT - The Series/1 is a tributary station on a multi- 
point line. The adapter should be jumpered for 
multipoint tributary operation with DTR permanent- 
ly enabled . 

RETRTES= The number of attempts which should be made to 
recover from common error conditions before posting 
a permanent error. 



MC = 



NO - The binary synchronous adapter located at the 
address specified in the ADDRESS= operand is either 
a medium speed, single line feature card or a high 
speed, single line feature card. 



YES - The binary synchronous adapter located at the 
address specified in the ADDRESS= operand is part 
of a multi-line controller feature configuration. 
When generating supervisors using multi-line con- 
troller attachments, note the following: 



The character string YES must be 
Any other character string will be 
to NO. 



specified, 
equivalent 



All multi-line feature cards must start at a 
base address ending with either X'O 1 or X'8 1 . A 
BSCLINE statement must exist for the line at 
this base address if any of the other lines of 
the mult i -line attachment are to be used. 



END = 



YES, for the last BSCLINE statement 
definition module. 



in the system 



Examples : 



BSCLINE ADDRESS=28,TYPE=PT,RETRIES=10,MC=NO 
BSCLINE ADDRESS=3 0,TYPE=SM,RETRIES=2,MC=YES,END=YES 
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DISK - Define Direct Access Storage 



DISK defines the direct access storage devices and logical 
volumes to be supported in the generated system. All DISK 
statements must be grouped together. The last DISK statement 
must include an END=YES specification. 

DISK is only needed in the system generation process. Refer to 
"Chapter 3. Data Management" on page 45 for a general 
discussion of direct access storage organization* functions* 

and naming conventions. 

Syntax 



blank DISK DEVICE= , ADDRESS= , VOLSER= , VOLORG= , 

VOLSIZE=,VERIFY=,BASEVOL=,FHVOL=, 
LIBORG=,END=,TASK= 



Requ i red : 

For 4964, 
For 4962, 
For 4962, 



4966: DEVICE=,ADDRESS= 

496 3: DEVICE=,ADDRESS=,VOLSER=,VOLSIZE= 
4963 (with fixed head): DEVICE= , ADDRESS= 
VOLSER=,VOLSIZE,FHVOL= 
Defaults: LIB0RG=241 for 4962-1 or 4962-2 primary volume 
LIB0RG=1 for secondary volume 

LIBORG=361 for 4962-1F or 4962-2F primary vol 
LIB0RG=129 for 4963-64 or 4963-58 primary vol 
LIB0RG=129 for 4963-29 or 4963-23 primary volum 
END=NO,TASK=NO,VERIFY=YES 



Operands Description 

DEVICE= 4964, to define a 4964 Diskette Drive, 



or 



one of the following for the six models of the 4962 
disk : 
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4962-1 for a 9.3 megabyte unit 
4962-1F for a 9.3 megabyte unit 

with f i xed heads 
4962-2 for a 9.3 megabyte unit 

with a diskette unit 
49 6 2-2F for a 9.3 megabyte unit 

with fixed heads 

and a diskette unit 
4962-3 for a 13.9 megabyte unit 
4962-4 for a 13.9 megabyte unit 

with a diskette unit 



or 



one of the following for the four models of the 4963 
disk : 

4963-29 for a 29 megabyte unit 

4963-23 for a 23 megabyte unit with fixed heads 

4963-64 for a 64 megabyte unit 

4963-58 for a 58 megabyte unit with fixed heads 

or 

4966, to define a 4966 Diskette Magazine Unit. 

Note : If 4962 or 4963 is specified, VOLSER= must be 
specified; LIBORG= may be specified. 

ADDRESS= The hexadecimal address of the unit. This parameter 
is required for primary volumes only. 

VOLSER= Volume label (1-6 characters) to be assigned to the 
unit. This operand is required if the DEVICE=4962- 
or DEVICE=4963- is specified. Otherwise, it is 
i gnored . 

VOLORG= The physical cylinder number of the first cylinder 
of the volume. Cylinder numbering begins with zero. 
A primary volume must begin at cylinder zero. (Re- 
fer to Figure 9 on page 58.) 

VOLSIZE= The size of the volume in physical cylinders. 
(Refer to Figure 9 on page 58.) 

VERIFY* NO, to omit the NRITE-wi th-ver i f y option. YES, to 

cause each WRITE to be verified. YES is the 

default. This parameter is required for primary 
vo lumes only. 
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Note : You should choose the VERIFY=YES option for 
volumes containing critical data. This causes a 
slight performance degradation but improves reli- 
ability. With the YES option?. each WRITE is imme- 
diately followed by a READ? thus lengthening the 
operation by the time it takes the unit to make one 
revolution. 



BASEVOL= The volume label of the primary 
secondary volume is being defined. 



vol ume i f 



FHVOL= The volume label to be assigned to the 
automatically generated secondary volume if the 
DISK statement is defining a primary volume on any 
4962 or 4963 having fixed heads. 

LIBORG= The origin? by number of records? of the directory 
on the volume. Defaults are described under 'Syn- 
tax 1 . This operand is only applicable when 
DEVICE=4962 or 4963 and is intended for special use 
when the initial portion of the volume is reserved 
for other storage. 



END = 



YES, for the last 
definition module. 



DISK statement in the system 



TASK= YES? to cause a new I/O task to be generated. This 
task will be used to service I/O requests for this 
and subsequent primary volumes until a new DISK 
statement with TASK=YES is encountered. NO? or 
omit? if a new task is not required. This operand is 
valid only for primary volumes and is optional. 

Specifying TASK=YES on a primary volume allocates a Task Con- 
trol Block that is used in servicing READ and WRITE requests 
for the group of devices being defined. The effect is to allow 
READ and WRITE requests to proceed in parallel with requests to 
other groups of devices. The resulting overlap may signif- 
icantly improve performance when concurrent requests to dif- 
ferent groups of devices occur. To achieve maximum flexibility 
and performance? you should specify TASK=YES on each primary 
volume. Additional storage required for each TASK=YES is 128 
bytes. 
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Example 1 : One'I/0 task for all direct access drives. 

DISK DEVICE=49 64,ADDRESS=0 2 

DISK DEVICE=49 6 2-1F,ADDRESS=0 3,VOLSER=EDX00 2,VOLSIZE=153, C 

FHVOL=EDX004 
DISK DEVICE=4962-1,VOLSER=EDX003,VOLORG=153,VOLSIZE=150, C 

BASEVOL=EDX002 
DISK DEVICE=49 6 3-2 3,ADDRESS=30,VOLSER=EDX0 5,VOLSIZE=128, C 

FHVOL=FH005 
DISK DEVICE=4963-23,VOLSER=EDX006,VOLSIZE=128, C 

END=YES,VOLORG=128,BASEVOL=EDX0 5 

Examp le 2 : One I/O task for the two 4964s and a second I/O task 
for the 4962. 

DISK DEVICE=4964,ADDRESS=02 
DISK DEVICE=4964,ADDRESS=12 
DISK DEVICE=49 6 2-1F,ADDRESS=0 3,VOLSER=EDX00 2,VOLSIZE=153, C 

FHVOL=EDX0 04,TASK=YES 
DISK DEVICE=4962-1F,VOLSER=EDX003,VOLORG=153,VOLSIZE=150, C 

BASEVOL=EDX0 2,END=YES 
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EXIODEV - Define EXIO Interface Device 



EXIODEV defines the devices to be supported via the EXIO inter- 
face in the generated system. All EXIODEV statements must be 
grouped together. The last EXIODEV statement must include an 
END=YES specification. 

Syntax 



blank EXIODEV ADDRESS= , END= , MAXDCB= , RSB= 

Required: ADDRESS= 

Defaults: MAXDCB=0 , RSB=0 , END=NO 

Indexable: Not applicable 



Operands 
ADDRESS= 
END = 

MAXDCB= 

RSB = 



Descr i pt i on 

The device address (two hexadecimal digits). 

Specify YES for the last EXIODEV statement in the 
system definition module. 

The maximum number of chained DCBs which will be 
used for this device. Must be three or less. 

The number of residual status bytes the device will 
transfer. Enter zero or an even decimal number 
between 4 and 16 inclusive. 



Examples 

EXIODEV ADDRESS=00 

EXIODEV ADDRESS=E0,RSB=12,MAXDCB=2,END=YES 

Note : Any device defined via EXIODEV should not be defined on 
any other statement such as DISK or TERMINAL. Doubly defined 
devices will cause unpredictable results when accessed by> for 
example* a combination of READ/WRITE and EXIO. You must load 
any control store that is required by the device. 
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HOSTCOMM - Define Host Communications Support 



HOSTCOMM defines the type and address in the generated system 
of the device to be used for host communication support. This 
support operates in conjunction with Host Communications 
Faci lity IUP. 

Syntax 



blank 



HOSTCOMM DEVICE=,ADDRESS= 



Required: DEVICE=, ADDRESS= 
Defaults : None 



Operands Descr i pt i on 

DEVICE= The type of communication to be used. 

BSCA, for Binary Synchronous Communications Adapt- 
er support. This is the only device supported and 
must be a single line BSC adapter (feature 2074 or 
2075). Only one is allowed. 

ADDRESS= The hexadecimal address of the device. 

Examp le 

HOSTCOMM DEVICE=BSCA,ADDRESS=09 



Chapter 6. System Configuration 83 



SENSORIO 



SENSORIO - Define Sensor I/O Devices 



SENSORIO defines the sensor I/O devices to be supported in the 
generated system. AH SENSORIO statements must be grouped 
together with the last one including an END=YES specification. 

Syntax 



blank SENSORIO ADDRESS= , DEVICE= , PI= , DI= , D0= > AI= , A0= , 

AITYPE=,LEVEL=,END= 

Required: DEVICE , ADDRESS 

Defaults: AITYPE=RELAY, LEVEL=1 , END=NO 



Operands Descr i pt i on 

ADDRESS= The base address of the device (in hexadecimal). 
This is the only required address if DEVICE=IDIO 
unless PI is needed on this unit. 

DEVICE= IDIO - The integrated digital I/O non-isolated fea- 
ture (feature #1560) . 

4982 - The sensor I/O unit. 

Note : For the PI, DI» DO, AI, and AO parameters* multiple 
addresses must be included in parentheses. 



Operands Descr i pt i on 

D I = The address or list of addresses of the digital 
input group(s) on this device. 

PI can be read as DI. 



PI = 



The address or list of addresses of the digital 
input group(s) to be used as process interrupt. 



DO = 



The address or list of addresses of the digital 
output group(s) on this device. 



A0 = 



The address or list of addresses of the analog out- 
put point(s) on this device. 
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AI= The address or list of addresses of the analog input 
multiplexor feature(s) on this device. 

AITYPE= The type of AI mult i plexer ( s ) . Valid entries are: 

• RR or RELAY - for relay 

• SS or SOLID - for solid state 

(The names have a one-to-one relationship with 
addresses on the AI operand.) 

LEVEL= A number (from 0-3) to assign the hardware inter- 
rupt level to the device. 

Note : This assignment is for all features on that 
device. 



END = 



YES, for the last SENSORIO statement in the system 
definition module. 



E xamp les 



SENSORIO DEVICE=IDIO,ADDRESS=68 

SENSORIO DEVICE=4982,ADDRESS=6 0,AO=6 5,DO=62,DI=64, 
PI=63,AI=61,AITYPE=SS 

SENSORIO DEVICE=49 82,ADDRESS=70,DI=(70,71) 

SENSORIO DEVICE=4982,ADDRESS=60,AI=(62,63), 

AITYPE=(RELAY,S0LID),A0=64,DI=(65,66),D0=67 

SENSORIO DEVICE=IDIO,ADDRESS=68,PI=68,END=YES 
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SYSTEM - Define Processor 



SYSTEM defines the characteristics of the processor and the 
system generation options. This statement must be specified 
once . 

Syntax 



blank SYSTEM STORAGE= , MAXPROG= , PARTS= , DATEFMT= , 

IABUF=,COMMON= 

Required: STORAGE* 

Defaults; MAXPROG=10, PARTS* 32 , DATEFMT=MMDDYY 
IABUF=2 0,COMMON=EDXSYS 



Operands Description 

STORAGE* The size in K bytes (K=1024) of , the Series/1 
processor storage. Enter one of the following num- 
bers: 16, 32, 48, 64, 80, 96, 112, 128, 160, 192, 
224, or 256. 

MAXPROG* The maximum number of concurrently executing 
programs to be allowed in the partition. Add one to 
your calculated number for each occurrence of 
$J0BUTIL in that partition. Add two for each occur- 
rence of the session manager in that partition. 
Four words of storage are required in the nucleus 
for each program specified. 

If a storage size larger than 64K bytes is speci- 
fied, multiple partitions must be defined. You 
must specify a list of the maximum number of concur- 
rently executing programs allowed in each parti- 
tion. 

The number of programs which can run concurrently 
in a system is a function of several variables, such 
as : 

• Processor storage 

• Program s i ze 
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• Processor time requirements 

These items vary with each installation. 

PARTS= The number of 2K (1K=1024 bytes) blocks of storage 
to be assigned to each partition. Use only if STOR- 
AGE= is specified as greater than 64. Enter a list 
showing the maximum size of each partition. Up to 
eight partitions can be defined for the 49 55, up to 
two for the 4952, and one for the 4953. The list 
must contain the same number of entries as the list 
coded for MAXPROG=. 



The method for calculating the 
partition one is as follows? 



max l mum s l ze 



for 



Determine the available storage in the first 64K by 
subtracting the size of the supervisor from 6 4 K . 
See Appendix A to estimate the supervisor size. 



The size of partition one is determined when 
IPL, by using the smaller of: 



you 



DATEFMT= 



• The size you define in the PARTS= parameter 

• 64K minus the size of the supervisor 

The maximum value that can be specified is 32; the 
minimum is 2. When specifying the size to be 
assigned to partition one, you may code 32 rather 
than calculating the value, if you wish partition 
one to have all storage not used by the supervisor. 
Otherwise, you must calculate the size of partition 
one . 

The Multiple Terminal Manager partition size can be 
calculated by using the information in the 
Communications and Terminal Applications Guide . 

The format to be used when the date is displayed 
(PRINDATE or $W) or when entering the date via $T. 
A return code is set in response to a GETT1ME 
request with the DATE option. 

Specify MMDDYY for a date format of month . day . year . 
Specify DDMMYY for a date format of day . month . year . 
MMDDYY is the default. 



Note : Timer support must be included 
supervisor in order to have date support. 



i n 



your 
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IABUF= The maxi'mum number of interrupts that may be buf- 
fered by the task supervisor. The default value is 
adequate for most systems. The value should be 
increased if the system could be overloaded by a 
large number of interrupts. (The system will stop 
or enter a continuous run loop.) Each increment 
increases the super v i sor storage requirements by 
four bytes . 

COMMON= The label of the last supervisor address to be 
mapped in every partition. The value will be auto- 
matically rounded upward to a 2K byte boundary. To 
map the entire supervisor* specify COMMON=START . 
To map only the supervisor data areas, specify 
COMMON=EDXSVCX. The default, COMMON=EDXSYS , 
implies no mapping. Refer to "$SYSCOM - Define 
Optional Common Data Area" on page 113 for 
additional information. 



Example 1 



SYSTEM ST0RAGE=9 6,MAXPR0G=(3,2,3) 
PARTS=(32,6,10) 



This three partition system is possible on a 96KB 4955 and maps 
as f ol lows : 



PARTITION 1 
PARTITION 2 
PARTITION 3 



28KB SUPERVISOR 


36KB USER SPACE 


12KB USER SPACE 




20KB USER SPACE 





1. Partition 1 is 36KB and can execute up to three programs 
concurrently. 

2. Partition 2 is 12KB and can execute up to two programs 
concurrently . 

3. Partition 3 is 20KB and can execute up to three programs 
concurrently. 

Note? The 28KB supervisor size is used for illustrative pur- 
poses only . 

Example 2 
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SYSTEM ST0RAGE=64,MAXPR0G=5 



A map of this single partition system is as follows: 
PARTITION 1 



28KB SUPERVISOR 



36KB USER SPACE 



Up to five programs can execute concurrently. 

Note: The 28KB supervisor size is used for illustrative pur 
poses only . 

Example 3 



SYSTEM STOR AGE= 19 6, MAXPROG= (1,2, 1,3,4,1), 
PARTS=(9, 12,7,4,20,32) 



This six partition system is possible on a 196KB 4955 and maps 
as f ol lows : 



PARTITION 1 

PARTITION 2 

PARTITION 3 

PARTITION 4 

PARTITION 5 

PARTITION 6 



28KB SUPERVISOR 


18KB USER SPACE 


24KB USER SPACE 




14KB USER SPACE 




8KB USER SPACE 




40KB USER SPACE 




64KB USER SPACE 





1. Partition 1 is 18KB and can execute one program at a time. 

2. Partition 2 is 24KB and can execute up to two programs 
concurrently . 

3. Partition 3 is 14KB and can execute one program at a time. 

4. Partition 4 is 8KB and can execute up to three programs 
concurrent ly . 

5. Partition 5 is 40KB and can execute up to two programs 
concurrent ly . 
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6. Partition 6 is 64KB and can execute one program at a time 
Note: The 28KB supervisor size is used for illustrative pur 
poses only. 



Examp le 4 



SYSTEM STORAGE=128,MAXPROG=(10,10,10), 
PARTS=(27,9,23) 



This three partition system is possible on a 128KB 4955 and 
maps as f ol Ions : 



PARTITION 1 
PARTITION 2 
PARTITION 3 



28KB SUPERVISOR 


36KB USER SPACE 


18KB USER SPACE 




46KB USER SPACE 





1. Partition 1 is 36KB and can execute up to ten programs 
concurrently. 

2. Partition 2 is 18KB and can execute up to ten programs 
concurrently . 

3. Partition 3 is 46KB and can execute up to ten programs 
concurrently. 

Note: The 28KB supervisor size is used for illustrative pur- 
poses only . 

Examp le 5 



SYSTEM ST0RAGE=128,MAXPR0G=(3,6) , 
PARTS=(32,32),C0MM0N=EDXSVCX 



This two partition system is possible on a 128KB 4952 and maps 
as f ol lows : 



PARTITION 1 
PARTITION 2 



28KB SUPERVISOR 


36KB USER SPACE 


4KB CONTROL BLOCKS 


60KB USER SPACE 



1. Partition 1 is 36KB and can execute up to three programs 
concurrently . 
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2. Partition 2 is 60KB and can execute up to six programs 
concurrently. The programs all have direct addressability 
to supervisor control blocks (for example* the CVT and DVT) 
because of the C0MM0N=EDXSVCX parameter. 

3. When the date is displayed, it Mill be in month, day, and 
year format. 

Note? The 30KB supervisor size and the 4KB control block size 
are used for illustrative purposes only. 

Examn le 6 



SYSTEM ST0RAGE=128,MAXPR0G=(4,4), 
PARTS=(32,32),DATEFMT=MMDDYY 



This two partition system is possible on a 128KB 4952 and maps 
as f ol lows : 



PARTITION 1 
PARTITION 2 



30KB SUPERVISOR 


34KB USER SPACE 


64KB USER SPACE 





1. Partition 1 is 34KB and can execute up to four programs 
concurrently . 

2. Partition 2 is 64KB and can execute up to four programs 
concurrently. 

3. When the date is displayed, it will be in month, day, and 
year format. 

Note: The 30KB supervisor size is used for illustrative pur- 
poses only. 

Example 7 



SYSTEM STORAGE=256, 

MAXPR0G=(3,1,5,2,2,1,1,4), 
PARTS=(15,4,21, 13,17,11,8,23) 



This eight partition system is possible on a 256KB 4955 and 
maps as f ol lows : 
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PARTITION 1 

PARTITION 2 

PARTITION 3 

PARTITION 4 

PARTITION 5 

PARTITION 6 

PARTITION 7 

PARTITION 8 



32KB SUPERVISOR 


30KB USER SPACE 


8KB USER SPACE 




42KB USER SPACE 




26KB USER SPACE 




34KB USER SPACE 




22KB USER SPACE 




16KB USER SPACE 




46KB USER SPACE 





• 1 . Partition 1 is 30KB and can execute up to three programs 
concurrently . 

2. Partition 2 is 8KB and can execute one program at a time. 

3. Partition 3 is 42KB and can execute up to five programs 
concurrently. 

4. Partition 4 is 26KB and can execute up to two programs 
concurrently. 

5. Partition 5 is 34KB and can execute up to two programs 
concurrently. 

6. Partition 6 is 22KB and can execute one program at a time. 

7 . Partition 7 is 16KB and can execute one program at a time 

8. Partition 8 is 46KB and can execute up to four programs 
concurrent ly . 

Note? The 32KB supervisor size is used for illustrative pur- 
poses only. 

Examp le 8 



SYSTEM ST0RAGE=9 6,MAXPR0G=(3,4) , 
PARTS=(16,18) ,C0MM0N=START 



This two partition system is possible on a 96KB 4952 and maps 
as f ol lows : 
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PARTITION 1 
PARTITION 2 



28KB SUPERVISOR 


32KB USER SPACE 


36KB USER SPACE 





1. Because COMMON=START was specified* the supervisor is 
mapped in both partition 1 and partition 2» providing 
direct addressability to the supervisor for all programs 
that execute on this system. 

2. Partition 1 is 32KB and can execute up to three programs 
concurrently . 

3. Partition 2 is 36KB and can execute up to four programs 
concurrently . 

Note: The 28KB number for the supervisor is used for illustra- 
tive purposes only. 



Chapter 6. System Configuration 



93 



TAPE 



| TAPE - Define Tape Device (Version 2 only) 



TAPE defines the tape devices on a system. One TAPE statement 
is required for each tape device on the system. It is recom- 
mended that you group all DISK statements together* followed by 
all the TAPE statements. The last TAPE or DISK statement must 
include an END=YES specification. 



I Syntax 



blank TAPE DEVICE= , ADDRESS* , DENSITY* , LABEL= , ID* , 
TASK*, END* 
Required: DEVICE* , ADDRESS* , ID= 
Defaults: DENS ITY = 1 600 , LABEL = SL , TASK=N0 , END=N0 



| Operands 
| DEVICE* 
ADDRESS= 

DENSITY* 
LABEL= 
ID = 
TASK* 



Descr i pt i on 

Device type (4969 to define IBM 4969 tape unit) 

A two digit hexadecimal number specifying the 
address assigned to the unit 

Tape density to be used for this device 
(800, 1600, DUAL) . When DUAL is coded, density 
defaults to 1600 BPI. 

Type of processing to be done on this device. Stand- 
ard label (SL), non-label (NL), and bypass label 
processing (BLP) are the only types supported. 

A one-to six-character name that is associated with 
the device. This operand is used primarily for 
specifying the drive when NL or BLP is used. 

YES, causes a new I/O task to be generated. This 
task is used to service I/O request for this and 
subsequent tapes until a new TAPE statement with 
TASK=YES is encountered. For best performance, 
specify TASK=YES for each tape unit that has a con- 
trol ler . 



END* 



YES, for 
sequence . 



the last statement in the DISK/TAPE 
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I Examp le 



TAPE 



TAPE DEVICE=49 6 9,ADDRESS=4C,DENSITY=16 00, 
LABEL=SL, ID=$TAPE1, 
TASK=YES,END=YES 



Note : END=YES is specified only 

once for the DISK/TAPE definition statements 
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TERMINAL - Define Input/Output Terminals 



TERMINAL defines each input/output terminal to be supported in 
the generated system. Output only devices* such as line 
printers* are also specified with TERMINAL statements. All 
TERMINAL statements must be grouped together with the last 
statement including an END=YES specification. 

A TERMINAL statement specifying DEVICE=VIRT can be entered in 
an application program provided exactly the same statement is 
entered in the system configuration program. All TERMINAL 
statements within the application program are automatically 
converted to an IOCB statement. The label on the TERMINAL 
statement is used for the label and the operand of the IOCB 
statement . 

Before preparing your TERMINAL statements* you need to know the 
characteristics of your terminals, the way they will be 
attached to your Series/1, and how you plan to use them in your 
application. Review the appropriate hardware manuals, the 
topic entitled "Terminal I/O" in the Language Reference , and 
the appropriate topics in Communications and Terminal 
Applications Guide . 



If you use the Remote Management Utility and need the PASSTHRU 
function, two virtual terminals are required. For a detailed 
description of the PASSTHRU function see the Remote Management 
Utility chapter in Communications and Terminal Applications 
Guide . See Figure 10 on page 107 for a sample configuration. 
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Syntax 



label TERMINAL DEVICE= , ADDRESS= , PAGSIZE= , L INSIZE= , 

CODTYPE=,TOPM=,BOTM=,NHIST=,LEFTM=,RIGHTM= 
OVFLINE=, LINEDEL=,CHARDEL=,CRDELAY=,ECHO=, 
BITRATE=,RANGE=,LMODE=,ADAPTER=,COD=,CR=, 
LF=,HDC0PY=,ATTN=,PF1=,SYNC=,SCREEN=,PART= 
DI=,DO=,PI=,END=,TYPE= 

Required: DEVICE= >and one of the following: 

• ADDRESS= except for DI/DO terminals 

• DI=,DO=,PI= for DI/DO terminals 
Defaults: PART= 1 , END=NO 



Operands Description 

DEVICE= One of the following codes for the indicated 
device: 



TTY 



A 3101 Display Terminal or other ASCII 
Terminal attached via Teletypewriter 
Adapter (7850) 



4979 



4978 



4974 



4973 



2741 



4979 display station attached via 3585 
Adapter 

4978 display station attached via RPQ 
D02038 

4974 matrix printer attached via 5620 
Adapter 

4973 line printer attached via 5630 
Adapter 

2741 communications terminal attached 
via 1610 controller 



4013 



Graphics terminal attached via 1560 
adapter (Refer to Communications and 
Terminal Applications Guide for hardware 
cons i der at i ons . ) 
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ACCA 



A 3101 Display Terminal or other ASCII 
terminal attached via 1610 controller or 
2091 controller with 2092 adapter or 2095 
controller with 2096 adapter (Refer to 
Communications and Terminal Applications 
Guide for hardware considerations.) 



PROC 
VIRT 



Processor-to-processor communication 

Inter-program communication. (Refer to 
"Chapter 14. Inter-Program 
Communications" on page 279.) 



ADDRESS= The address (in hexadecimal) of the device. (Refer 
to "Chapter 14. Inter-Program Communications" on 
page 279 for the, use of this parameter in con- 
nection with virtual terminal communications.) 

PAGSIZE= The physical page size (form length) of the I/O 
medium. Specify a decimal number between 1 and the 
maximum value which is meaningful for the device. 
For printers* specify the number of lines per page* 
or for screen devices the size of the screen in 
lines. This operand is not required for the 
4978/4979 display; its value is forced to 24. 



C0DTYPE= 



The transmission code used by the terminal. Specify 
either ASCII, EBCDIC, EBCD (PTTC/EBCD), CRSP 
( PTTC/correspondence ) , or EBASC (8 bit data inter- 
change code) as in the following table: 



DEVICE* 



TTY 



2741 



ACCA 



TYPE OF ADAPTER 


7850 


1610 or 
2091 w/2092 


2095 w/2096 








ASCII 
(default) 


N/A 


N/A 


N/A 


Spec i f y : 
EBCD 
or 
CRSP 


N/A 


N/A 


EBASC 
(default) 


Spec i f y : 
ASCII 



LINSIZE= The maximum length of an input or output line for 
the device. The value of this operand can be less 
than the maximum which the device can accommodate 
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(for example* 80 for the 4978/4979 display station 
or 132 for the 4974 printer)* but the value is then 
fixed and cannot be altered dynamically. 



T0PM = 



The top margin (a decimal number between zero and 
PAGSIZE-1) to indicate the top of the logical page 
within the physical page for the device. 



NHIST= The number of history lines to be retained when a 
page eject is performed on the 4978/4979 display. 
The line at TOPM+NHIST corresponds to logical line 
zero for purposes of the terminal I/O instructions. 
Nhen a page eject (LINE=0) is performed, the screen 
area from TOPM to TOPM+NHIST-1 will contain lines 
from the previous page. This operand is meaningful 
for roll screens only. (See the discussion of the 
SCREEN operand which follows.) 



B0TM = 



The bottom margin* the last usable line on a page. 
Its value must be between TOPM+NHIST and PAGSIZE-1. 
If an output instruction would cause the line num- 
ber to increase beyond this value* then a page 
eject* or wrap to line zero* is performed before the 
operation is continued. 



LEFTM= The left margin* the character position at which 
input or output will begin. Specify a decimal value 
between zero and LINSIZE-1. 

RIGHTM= A value (between LEFTM and LINSIZE-1) that deter- 
mines the last usable character position within a 
line. Position numbering begins at zero. 

0VFLINE= YES* if output lines which exceed the right margin 
are to be continued on the next line. 

LINEDEL= A two-digit hexadecimal character that defines the 
character the operator will enter when he wishes to 
restart an input line. In some cases* input of this 
character causes a repeat of the previous output 
message. Usually* this operand is not meaningful 
for devices such as the 4979 display station* whose 
input is formatted locally before entry. (For the 
ACCA terminals attached via the 1610 or 2091 con- 
trollers and the 2092 adapter, code in mirror 
image. Refer below for a description of mirror 
i mages . ) 

CHARDEL= A two-digit hexadecimal character which indicates 
deletion of the previous input character. It is 
meaningful only for devices whose mode of trans- 
mission is one character at a time* as described in 
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the LINEDEL operand. For the ACCA terminals 
attached via the 1610 or 2091 controllers and the 
2092 adapter* enter in mirror image. 

CRDELAY= The number of idle times required for a carriage 
return to complete for teletypewriter devices. If 
printing occurs during the carriage return* CRDELAY 
is too small. For i nterprocessor communications 
(DEVICE = PROC) , refer to the Communications and 
Terminal Applications Guide. 



ECH0 = 



NO, for devices that do not require input charac- 
ters to be written back (echoed) by the processor 
for printing. 

YES (the default) is appropriate for most devices 
connected through the teletypewriter adapter. NO 
is required for ACCA. See the LF parameter 
description regarding suppression of the echo of 
theCRcharacter. 



BITRATE= The rate (in bits per second) that this terminal 
will be operating. (Used with ACCA, 2741 and PROC 
support only. ) 

RANGE= Enter HIGH or LOW to match hardware jumper that is 
installed on the adapter card. (Used with ACCA, 
2741 and PROC support only.) 

LM0DE= SWITCHED or PTTOPT. If this line is used with a 
switched connection, then enter SWITCHED. Other- 
wise, enter PTTOPT. (Used with ACCA support only.) 

ADAPTER= One of the following to indicate the ACCA type: 

SINGLE For the single line controller 



TWO 



For the eight line controller with up to 
two 1 i nes act i ve 



FOUR 



For the eight line controller with up to 
four 1 i nes act i ve 



SIX 



For the eight line controller with up to 
s i x 1 i nes act i ve 



EIGHT For the eight line controller with up to 
eight lines active 
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All multiple line feature cards must start at a base 
address ending with with X'O' or X ' 8 " . A terminal 
statement with DEVICE=ACCA must exist for the line 
at the base address. Furthermore, the terminal 
defined as the base address must be specified as the 
first terminal for the multiline controller. The 
remaining terminals defined on the multiline con- 
troller ( if any ) must immediately follow the base 
address terminal and should be in ascending order 
by address . 

Note : For DEVICE=2741, only SINGLE is allowed. 

This should match the jumpers on the controller 
cards. (Refer to the Communications and Terminal 
Applications Guide for hardware considerations.) 



COD = 



Additional characters, other than the CR=, ATTN=, 



and LINEDEL= values, that will 
operation, (COD means change 
example, READ to WRITE.) (Used 
Code in mirror image as follows: 



terminate a READ 

of direction, for 

wi th ACCA only . ) 



C0D=11 

or 

C0D=(12,B6,42. . . ) 

From one to four COD characters may be entered. 



CR = 



The character to be tested to determine if a new 
line function is to be performed. (Code in mirror 
image for ACCA term i na Is attached via the 1610 or 
2091 controllers with the 2092 adapter.) 



LF = 



HDC0PY= 



The character to be sent to the terminal when a new 
line function is to be performed. Code in mirror 
image for ACCA terminals attached via the 1610 or 
2091 controllers with the 2092 adapter. If the same 
value is coded for LF= as was coded (or defaulted) 
for CR= then the CR character which terminates an 
input operation will not be echoed to the terminal; 
the terminal is assumed to be an auto-line feed 
dev i ce . 



Support for the 49 78/49 79 display station includes 
a means of printing the contents of the display 
screen on a hardcopy device for permanent record. 
(For an explanation of the hardcopy feature, refer 

to Utilities, Operator Commands , Program 

Preparation, Messages and Codes ) . The hardcopy 
function is defined by coding: 
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ATTN* 



HDCOPV=(terminal name, k,ey), 
terminal name 



The symbolic name of the terminal to 
which the hardcopy contents will be 
d i rected 



key The code of the program function key 

which is to invoke the function. For 
example, HDCOPY= ( SSYSPRTR , 4 ) desig- 
nates $SYSPRTR as the hardcopy 
device and PF4 as the activating key. 
If the hardcopy terminal name alone 
is specified, as for example in 
HDCOPY=$SYSPRTR, then the default is 
PF6. Note: The terminal specified 
(Terminal name) must not be defined 
with ATTN=NO. 

NO, if the attention key and the 4978/4979 PF keys 
are to be disabled for the terminal. Such disabling 
is then permanent for the generated system. If you 
do not specify ATTN=, the default is the ATTN key. 

LOCAL, to limit the attention functions to those 
defined by ATTNLISTs within programs loaded from 
the termi nal . 



NOSYS, to exclude only the system 
$C, etc . ) . 



f unct i ons ( $L , 



NOGLOB, to exclude only the global ATTNLIST func- 
tions. (GLOBAL is the ATTNLIST of all programs in 
the same partition at one time.) 

Note i This operand can also be entered with a two- 
digit hexadecimal character for the attention key 
if the system default is not desired. 

The attention key can be redefined with a two-digit 
hexadecimal character for the 4978/4979 displays or 
ASCI I termi nals . 

For terminals attached via the 1610 or 2091 con- 
trollers and the 2092 adapter, use mirror image. 
(Refer to "Mirror Image" on page 109 for a 
discussion of mirror image.) 

For the 3101 display terminal, enter X f D 9 ' if the 
terminal is attached via the 1610 or 2091 control- 
lers and X'9B f if it is attached via the 2095 con- 
troller. You may have the Mark Parity Switch set on 
(refer to the IBM 3101 Display Terminal Description 
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GA18-2034, for information on switch settings). 

The default for ATTN for ASCII terminals is ASCII 
X f lB T , the ESC key. The mirror image of X'lB' is 
X'DS 1 . Note! If the terminal being defined is spec- 
ified in the HDCOPY= parameter of an other termi- 
nal, do not code ATTN = NO. 



PF1 = 



For the 4978 display, code the two-digit 
hexadecimal character which is to be interpreted as 
Program Function key 1. Successive values are then 
interpreted as PF2 and PF3. 



The default for this operand is 2. 



SYNC = 



This keyword applies to virtual terminal 
communications. Code SYNC=YES if synchronization 
events will be posted to this virtual terminal. 



This means that attempted actions over the virtual 
channel will be indicated in the task control word. 
This allows the two terminals to synchronize their 
actions so that when one terminal is writing, the 
other i s read i ng . 

SYNC=NO is the default. 

SCREEN= One of the following to indicate whether the 
terminal is a hardcopy or screen device: 

YES or ROLL for screens which are to be operated 
like a typewriter. 

For screen devices which are attached through the 
teletypewriter adapter, this indicates that a pause 
will be performed when a screen-full condition 
occurs during continuous output. 

NO for hardcopy devices. For 4978 or 4979 devices, 
NO results in inhibiting the pause when the screen 
fills up (the screen acts as a roll screen). 

STATIC for a full-screen mode of operation, if this 
mode is supported for the device. 

Note : The initial terminal configuration should be 
STATIC only if the terminal is reserved for data 
display and data entry operations. Normal system 
operations, such as those directed to $SYSLOG or 
those involving the utility programs, assume a roll 
screen configuration. The application program can 
define the static screen configuration by means of 
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the ENQT and IOCB instructions described in the 
Language Reference . 

PART = A number (1-8) to indicate the partition with which 
the terminal is normally associated. 

This is valid only if the STORAGE= operand of the 
SYSTEM statement was specified to be greater than 
64. You can change the partition assignment at exe- 
cution time with the $CP Command described in 
Utilities* Operator Commands? Program Preparation* 
Messages and Codes . 

END = YES, for the last TERMINAL statement in a system 
definition module. 

TYPE= Specify DSECT to generate a CCB DSECT in your 
program, for programs processed by $S1ASM. Do not 
specify DSECT in programs processed by $EDXASM; use 
COPY CCBEQU elsewhere in your program. 

The following three operands are for terminals connected via 
digital I/O only : 



Operands Descr i pt i on 

DI = (address , termaddr ) 

address The digital input group address. 

termaddr The hardware subaddress (0-7) of the 
terminal defining the value used to 
select the terminal for digital input. 

D0= (address > termaddr ) 

address The digital output group address 

termaddr The hardware subaddress (0-7) to define 
the digital output subaddress of the ter- 
minal 

PI=(address,bit) 

address The process interrupt group address. 

bit The bit (0-15) to define the particular 
interrupting point assigned to the ter- 
minal . 
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Terminal support is provided for digital I/O devices such as 
the Tektronix 4010 Series of Display Terminals equipped with 
the General Purpose Parallel Interface (Tektronix Custom Fea- 
ture Number CM021-0109-03) or terminals having equivalent 
hardware interfaces. (Refer to the Communications and 
Terminal Applications Guide , ) 



Examples and Defaults 



Default values for optional parameters on the TERMINAL state- 
ment vary with the device type. In the following examplesi the 
default assignments for each device support are shown as if 
they were explicitly coded in the TERMINAL statement. If a 
parameter is not shown* then it is not relevant for the device. 
Address assignments are for illustration only. 



4978/4979 Display TERMINAL Statement 



TERMINAL DEVICE=4978 (or 4979 ) , ADDRESS=04 , PAGSIZE=24 , C 
LINSIZE=80,TOPM=0,NHIST=12,BOTM=2 3,LEFTM=0, C 
RIGHTM=7 9,SCREEN=ROLL,0VFLINE=NO,ATTN=YES 



4974 Matrix Printer or 4973 
Statement 



Line Printer TERMINAL 



TERMINAL DEVICE=4974 (or 4973 ) , ADDRESS=0 1 , PAGSIZE=66 , C 
LINSIZE=132,TOPM=3,BOTM=63,LEFTM=0, C 

RIGHTM=131,0VFLINE=N0 
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ASCII Terminal via 7850 Adapter TERMINAL Statement 



TERMINAL DEVICE=TTY , ADDRESS=0 , PAGSIZE=35 , L INSIZE=80 , C 

CODTYPE=ASCII,TOPM=0,BOTM=34, LEFTM=0, C 

RIGHTM=79,SCREEN=NO,OVFLINE=NO,LINEDEL=7F, C 

CHARDEL=08,CRDELAY=0,ECHO=YES,ATTN=YES, C 
CR=0D,LF=0A 



IBM 2741 Terminal TERMINAL Statement 



TERMINAL DEVICE =2 741 , ADDRESS=08 , PAGSIZE=66 , 

LINSIZE=130,CODTYPE=EBCD,TOPM=0,BOTM=65, 
LEFTM=0,RIGHTM=12 9,SCREEN=NO,OVFLINE=NO, 
LINEDEL=AO,CHARDEL=5D,CRDELAY=0,ECHO=NO, 
CR=5B,LF=5B,BITR ATE =134, ADAPTER =S INGLE 



ASCII Terminal via 1610 Controller TERMINAL Statement 



TERMINAL DEVICE=ACCA , ADDRESS=70 , PAGSIZE=35, 
LINSIZE=8 0,CODTYPE=EBASC,TOPM=0, 
B0TM = 34, LEFTM = 0, R I GHTM = 79, SCREENING), 
OVFLINE=NO,CRDELAY=0,ECHO=NO, 
BITRATE=30 0,RANGE=HIGH,LMODE=PTTOPT, 
ATTN=YES,ADAPTER=SINGLE,LF=5B,CHARDEL=11 



PROC (via 1610 Controller) TERMINAL Statement 



TERMINAL DEVICE=PR0C , ADDRESS=7F , CODTYPE=EBCDIC, 
L INSIZE = 1 30, CRDELAY=( PROMPT, 30000), 
BITRATE=9600,RANGE=HIGH,CR=5B,LF=5B 
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4013 4 (DI/DO Parallel Interface) TERMINAL Statement 



TERMINAL DEVICE=40 1 3 , DI = ( 80 , 1 ) , DO= ( 87 , 1) , C 

PI =(84,04) , PAGSIZE=35,LINSIZE=72, C 

CODTYPE=ASCII,TOPM=0,BOTM=34,LEFTM=0, C 

RIGHTM=71,SCREEN=N0,0VFLINE=N0, C 

LINEDEL=7F,CHARDEL=08,CRDELAY=0,ECHO=YES, C 
CR=0D,LF=0A 



Remote Management Utility using the 
PASSTHRU function - TERMINAL Statements 



CDRVTA TERMINAL DEVICE=VIRT , ADDRESS=CDRVTB , 

SYNC=YES, LINSIZE=132 

CDRVTB TERMINAL DEVICE=VIRT , ADDRESS=CDRVTA , 

SYNC=NO,LINSIZE=132 



Note : This example shows a line size of 132. The 

maximum line size value is 254. 

The names CDRVTA and CDRVTB are required. 



are not 



The following statements are coded with values that dre nu«. 
defaults for parameters PAGSIZE, ATTN, CR, CHARDEL, LINEDEL, 
ADAPTER, BOTM, SCREEN, BITRATE, RANGE, and MODE. Use these val- 



ues if the IBM 



ue» ii uic abii 3101 Display Terminal is attached to your sys- 
tem. For DEVICE=ACCA, you must set the mark parity switch on 

(refer to the IBM 3101 Display Terminal " ---a.- 

GA18-2033, for information on switch settings). 



Descr i pt i on , 



Registered trademark of the Tektronix Corporation. 
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IBM 3101 TERMINAL Statement (via 7850 adapter) 



TERMINAL DEVICE=TTY , ADDRESS=0 , CRDE LAY=4 , 
PAGSIZE=24,SCREEN=YES 



IBM 3101 TERMINAL Statement (via 2095 controller) 



TERMINAL DEVICE=ACCA , ADDRESS=60 , BITRATE= 1 1 , 
PAGSIZE=24, LINSIZE=80, 

CODTYPE=ASCII,TOPM=0,BOTM=2 3,LEFTM=0, 
RIGHTM=7 9,SCREEN=YES, OVFLINE=NO, 
LINEDEL=FF,CHARDEL=88,CRDELAY=0,ECHO=NO, 
RANGE=L0W, LMODE=PTTOPT , 
CR=8D> LF=0A,ATTN=9B,ADAPTER=FOUR 



IBM 3101 TERMINAL Statement 
(via 1610 or 2091 controller) 


TERMINAL DEVI CE = ACC A , ADDRESS = 6B , BITRATE = 1 1 , 
PAGSIZE=24,LINSIZE=80, 

CODTYPE=EBASC,TOPM=0,BOTM=2 3,LEFTM=0, 
RIGHTM=79,SCREEN=YES,OVFLINE=NO, 
LINEDEL=FF,CHARDEL=88,CRDELAY=0,ECHO=NO, 
RANGE=LOW,LMODE=SWITCHED, 
CR=B1,LF=50,ATTN=D9,ADAPTER=EIGHT 


C 
C 
C 
C 
C 
C 
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IBM 3101 Model 2 (block mode) under Multiple 
Terminal Manager TERMINAL Statement 
(via 1610 or 2091 controller) 



TERMINAL DEVICE=ACCA , ADDRESS=0 8 , BITRATE=240 , 
PAGSIZE=24,LINSIZE=80, 

CODTYPE=EBASC,TOPM=0,BOTM=2 3,LEFTM=0, . 
RIGHTM=79,SCREEN=YES,0VFLINE=N0, 
LINEDEL=FF,CHARDEL=11,CRDELAY=0,ECHO=NO, 
RANGE=HIGH, LM0DE=PTT0PT , 
CR=B1, LF= 50, ATTN=FB,ADAPTER=S INGLE 



IBM 3101 Model 2 (block mode) under Multiple 
Terminal Manager TERMINAL Statement 
(via 2095 controller) 



TERMINAL DEVICE= ACCA , ADDRESS=6 1 , BITR ATE =2 400 , 
PAGSIZE=24, LINSIZE=80, 

CODTYPE=ASCII,TOPM=0,BOTM=2 3,LEFTM=0, 
RIGHTM=79,SCREEN=YES,0VFLINE=N0, 
LINEDEL=FF,CHARDEL=88,CRDELAY=0,ECHO=NO, 
RANGE=HIGH,LMODE=PTTOPT, 
CR=8D, LF=0A,ATTN=DF, ADAPTER = FOUR 



Mi r ror Image 

Mirror image is used by ASCII terminals attached via the 1610 
or 2091 controllers and the 2092 adapter. Mirror image reverses 
the bit pattern for data. For example, the EBCDIC character 1 
would look as follows: 

X'Fl' EBCDIC 

X»31' ASCII 

X'BF 1 Mirror Image EBCDIC 
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X»8C» 



Mirror Image ASCII 



When using XLATE=NO on Event Driven language instructions 
PRINTEXT and READTEXT, the data sent must be in mirror image. 
Data received is in mirror image. 



ASCII Terminal Codes 



Terminals and other devices equivalent to the Teletype ASR 
3 3/35 are referred to in this document as "ASCII terminals." 
These terminals may be attached to the Series/1 in a variety of 
ways. Note that while the bit representation of a character 
appearing at the terminal is the same for all the attachments* 
two different representations for a given character are used 
i nternal ly . 



One representation is ASCII* in which the characters appear in 
main storage in ASCII code. This code is used by features 
#7850, #2095, and #2096. 

The other representation is the Eight Bit Data Interchange 
Code. It is used by the 1610 and 2091 controllers and the 2092 
adapter. This representation is the mirror image within a byte 
of the ASCII representation. The bits appear swapped 
end-for-end within each byte. 

Note also that ASCII terminals may use even, odd, or no parity. 
The parity bit appears as the high order bit in ASCII code and 
as the low order bit in Eight Bit Data Interchange Code. You 
must incorporate the proper parity, if any, within the data 
characters. You must also incorporate the proper parity, if 
any, within the control characters specified by the LINEDEL, 
CHARDEL, COD, CR, and LR parameters of the TERMINAL statement. 



Symbolic Reference to Terminals 



The optional label on the TERMINAL statement is used to assign 
a name to the device for purposes of reference by the applica- 
tion program. Three such names have special meaning to the 
supervisor and should be assigned to the appropriate device: 

SSYSLOG Names the system logging device or operator station, 
and must be defined in every system. In the starter 
supervisor, $SYSL0G defines a 4978 display station. 



110 SC34-0312 



TERMINAL 



$SYSLOGA Names the alternate system logging device. If unre- 
coverable errors prevent use of SSYSLOG, the system 
will use the SSYSLOGA terminal as the system logging 
device /operator station. If defined* this device 
should be a terminal with keyboard capability* not 
just a printer. The starter supervisor defines the 
$SYSLOGA terminal as a teletypewriter device. 

$SYSPRTR Names the system printer. If defined* the hard copy 
output from some system programs will be directed to 
this device. The starter supervisor defines a 49 74 
matrix printer as the $SYSPRTR device. 

$SYSLOG is referred to by the supervisor and the utility pro- 
grams and must be defined on every system. $SYSLOGA is an 
optional assignment which will be used* if defined, as the out- 
put device for $SYSLOG messages if $SYSLOG develops an uncor- 
rectable error condition. 

$SYSPRTR is an optional specification which, if defined, will 
be used as the output device by some of the utility programs. 
If $SYSPRTR is not defined, the output will be directed to the 
terminal from which the program was invoked. 

Assignment of a name to a terminal designates that terminal as 
a global resource which can be accessed by any application pro- 
gram through use of the ENQT and DEQT instructions described in 
the Language Reference . 
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TIMER - Define System Timer Features 



TIMER is used to define the address of the #7840 Timer Feature 
to be used as the system timers in the generated system. One of 
the two timers on the card will be used for time of day record- 
ing and the other will be used for interval timing. 

This statement is used only for defining the #7840 timer. If 
the system has a native timer (4952 processor only) that is 
used instead of the #7840 timer feature card, it is not neces- 
sary to use this or any other statement. The native timer and 
the #7840 timer are mutually exclusive. 

Syntax 



blank 

Requ i red : 
Defaults : 



TIMER 

ADDRESS= 
None 



ADDRESS= 



Operands Descr i pt i on 

ADDRESS= The hexadecimal address of the #7840 Timer Feature 

Example 

TIMER ADDRESS=40 
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$SYSCOM - Define Optional Common Data Area 



$SYSCOM is an optional data area in the supervisor which can be 
accessed from application programs. If you select this option* 
you must map the portion of the supervisor containing $SYSCOM 
into each address space. 

The common area is referenced indirectly in application 
programs through a storage location with the label $SYSCOM. 
This storage location contains the address of the first word of 
the common area. Therefore, in order to reference data in the 
common area, the contents of $SYSC0M should be loaded into a 
register, such as #1. Data elements can then be referenced by a 
displacement from this register. 

The common area can contain Event Control Blocks (ECB), Queue 
Control Blocks (QCB), or any data blocks that must be accessed 
by more than one program. For example, if several programs 
perform a file update that must be performed serially, a QCB is 
defined in the common area which is related to this file update 
process. Programs that perform the file update should ENQ on 
this QCB before reading the file and DEQ the QCB after writing 
the file. Many of the functions available through the use of 
$SYSCOM are also provided by the cross partition capabilities 
of the Event Driven Language instruction set. (Refer to the 
Language Refere nce and "Chapter 14. Inter-Program 



Communications" on page 279 for details.) 

You define the size and contents of $SYSCOM. However, since 
storage is mapped in 2K byte increments, the minimum common 
data area is 2K bytes. For example, a 12K byte partition 
requires at least 14K bytes (the PARTS= operand must specify 7 
(14KB) ) . 

The actual size of the mapped area is rounded up to a 2K bounda- 
ry. 

If you require a common data area and wish to minimize the stor- 
age it occupies in each partition, use the following process: 

1. Prepare a module that contains the items you wish to 
include in the common data area. The last statements 

should be: 

ENTRY UCOMM 
UCOMM EQU * 
END 

2. Name this module USERCOM and store it in ASMLIB. 
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3. Insert INCLUDE USERCOMM, ASMLIB after INCLUDE EDXSYS in 
$LNKCNTL. This makes your common data area the second 
module in the nucleus. 

4. Enter COMMON=UCOMM on your SYSTEM statement. 

$SYSCOM then defines the beginning of your common area. The 
address of UCOMM, the end of your common area, rounded up to a 
2KB boundary, is the size of the mapped area. 



Example 



Common area, containing two QCBs and two ECBs. 



$SYSCOM 



CSECT 

QCB 

QCB 

ECB 

ECB 



To reference the first QCB from your application, the following 
instructions can be coded: 

MOVE #1,$SYSC0M 
ENQ (0,#1) 



DEQ 



perform serial operation 
(0,#1) 



Since a QCB is ten bytes in length, the second QCB is referenced 
as f ol lows : 



ENQ 



(10, #1) 



It may be convenient to define an equate table which identifies 
each element of the common area by a symbolic name. The PL/I 
User's Guide shows how to use and access $SYSC0M as a GLOBAL 
communication area. 
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To generate an Event Driven Executive system* you must have 
access to a Series/1 capable of preparing the supervisor pro- 
gram and application programs. System generation requires that 
the following licensed programs be installed: 

• Basic Supervisor and Emulator 

• Event Driven Executive Utilities 

• Event Driven Executive Program Preparation Facility 
or 

Series/1 Macro Assembler and. Macro Library 

The Program Preparation Facility enables you to prepare 
programs to be executed on any Series/1 that has the required 
hardware configuration and licenses. 

GENERATING THE SUPERVISOR 

Creating a supervisor program tailored to your Series/1 hard- 
ware configuration requires the use of several of the utilities 
and program preparation programs; these include: 

• Disk data set management (§DISKUT1) 

• Text editor C5EDIT1N) 
or 

Full-screen editor ($FSEDIT) 

• Batch job stream processor (SJOBUTIL) 

• Event Driven Language compiler ($EDXASM) 

• Linkage editor ($LINK) 

• Object module conversion ($UPDATE) 

You should become familiar with these utilities* especially 
the text editors* before attempting to generate the supervi- 
sor. These utilities are described in Utilities* Operator 
Commands* Program Preparation* Messages and Codes . 

The following major steps are required: 
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Step A. Allocate required data sets. 

Step B. Edit SEDXDEF, the system configuration file* to 
match your hardware configuration.. 

Step C. Edit SLNKCNTL, the system-supplied INCLUDE file, 
to specify which supervisor program object modules are to 
be included in your supervisor. 

Step D. Edit $SUPPREP, the system-supplied job stream 
processor file* to use your allocated data sets. 

Step E. Use $JOBUTIL and the procedure file created in 

Step D to! 

Assemble the supervisor definition module created in 
Step B 

- Link edit the resulting object module with the other 
necessary supervisor object modules using the link 
edit control data set created in Step C. 

Using $UPDATE, convert the output of the link edit 
process into an executable supervisor, and store it in 
a data set named $EDXNUCT. 

Step F. Test the created supervisor on a disk based sys- 
tem. 

Step G. Verify the system generation process (optional). 



Step A - Allocate Required Data Sets 



1. IPL the system from disk volume EDX002. 

2. Load utility program $DISKUT1 and use the AL command to 
allocate the following data sets on volume EDX002. All 
data sets must be specified as TYPE = DATA. 



Data Set Name Number of Records 



EDITWORK 200 

ASMOBJ 250 

ASMWORK 250 

SUPVLINK 450 

LEN0RK1 400 

LEW0RK2 150 
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Step B - Edit $EDXDEF to Match Hardware Configuration 



Edit $EDXDEF to match your hardware configuration: 

1. Load utility program 0EDIT1N or $FSEDIT and specify 
EDITWORK as the reply to WORKFILE=. 

2. Read the supplied data set $EDXDEF from volume ASMLIB. 
Figure 11 on page 133 shows a sample configuration of 
$EDXDEF. The supplied configuration can be seen in the Pro- 
gram Di rectory . 

The first time you use EDITWORK as a work file for the text 
editor, you will be asked if you can use the EDITWORK data 
set as a work data set; respond YES and continue. 

3. Add to or delete from the contents of EDITWORK as necessary 
to create a set of system configuration statements. (Sys- 
tem configuration statements are described in "Chapter 6. 
System Configuration" on page 75.) Some printer on the 
Series/1 should be designated as $SYSPRTR. When editing 
ensure that : 

• Continuation indicators in column 72 are not removed. 

• If required, a continuation character is placed in 
column 72 and the statement is continued in column 16 
of the next 1 i ne 

• A field does not extend beyond column 71 

The editing process consists of the following procedure: 

a. Calculate the total amount of storage available, the 
number of partitions desired, and the number of 2K 
blocks of storage desired for each partition. This 
information is inserted into the SYSTEM statement to 
define the characteristics of the processor. Refer to 
"Chapter 6. System Configuration" on page 75 for a 
description of the SYSTEM statement. 

b. Define the hardware features to be supported, using 
the appropriate system configuration statements (TIM- 
ER, SENSORIO, HOSTCOMM, BSCLINE, EXIODEV, DISK, TERMI- 
NAL, TAPE) . 

c. Define the direct access storage devices and logical 
volumes to be supported in the generated system, using 
the DISK system configuration statement. Sample DISK 
configuration statements are supplied for each device 
in the $EDXDEF data set on ASMLIB. Refer to "Chapter 3. 
Data Management" on page 45 for storage capacities of 
the supported direct access storage devices. With 
this information, you can define your disk volumes. 
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The only restrictions are (1) that you define the 
required Event Driven Executive volumes (EDX002* 
EDX003* ASMLIB) in addition to your volumes and (2) 
that you follow the rules pertaining to library 
origins and maximum volume sizes. 

Note '* Optional software products may require addi- 
tional volumes. Volume requirements are supplied with 
the product documentation. 

d. Define the characteristics of all printers* displays* 
and teletypewriters* using the TERMINAL statement. 
Examples of various types of TERMINAL statements are 
included in the SEDXDEF data set. 

4 . Save the final version of the definition statements in the 
data set SEDXDEFS on volume EDX002. 



Step C - Specify Object Modules 



Edit $LNKCNTL to specify which supervisor program object mod- 
ules are to be included. 

1. Read data set $LNKCNTL from volume ASMLIB. The supplied 
contents of $LNKCNTL are shown in the following tables; 
footnotes are provided on required usage. The SLNKCNTL 
data set supplied with Version 1 does not include TAPE sup- 
port . 
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Sample Contents of 3LNKCNTL (Version 1.1) 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x COMMENTS MAY BE INCLUDED BY PUTTING AN »*» IN COLUMN 1. x 
x USE THIS TECHNIQUE TO OMIT UNNEEDED MODULES x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

OUTPUT SUPVLINK,EDX002 ENTRY=$START 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x SUPERVISOR SUPPORT 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

INCLUDE EDXSYS,XS1002 xOx SYSTEM TABLES AND WORK AREAS 
INCLUDE ASMOBJ,EDX002 XOx OUTPUT FROM USER SYSTEM GENERATION 

xINCLUDE EDXSVCX,XS1002 xO,Kx TASK SUPERVISOR (XL) 
INCLUDE EDXSVCXU,XS1002 xO,Lx TASK SUPERVISOR (UN-XL) 
INCLUDE EDXSTART,XS1002 xOx INITIALIZATION & ERROR HANDLER 

XINCLUDE $DBUGNUC,XS1002 xO,Gx RESIDENT $DEBUG SUPPORT 
INCLUDE EDXALU,XS1002 XOx EDL INSTRUCTION EMULATOR 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x DEVICE SUPPORT — DISK(ETTE)S 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
INCLUDE DISKIO,XS1002 xMx BASIC DISK(ETTE) SUPPORT 
INCLUDE D49624,XS1002 xMx 4962/4964 DISK(ETTE) SUPPORT 
INCLUDE D4963A,XS1002 xMx 4963 SUBSYSTEM SUPPORT 
INCLUDE D4966A,XS1002 xMx 4966 MAGAZINE SUPPORT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x DEVICE SUPPORT — TERMINALS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XINCLUDE EDXTICXS1002 xl,Kx BASIC TERMINAL SUPPORT (XL) 
INCLUDE EDXTIOU,XS1002 xl,Lx BASIC TERMINAL SUPPORT (UN-XL) 

XINCLUDE EDXTERMQ,XS1002 xl,Kx ENQT/DEQT & TERMINAL QING (XL) 
INCLUDE EDXTRMQU,XS1002 xl,Lx ENQT/DEQT & TERMINAL QING (UN-XL) 

XINCLUDE IOS4979,XS1002 xM,Kx 4978/4979 DISPLAY SUPPORT 
INCLUDE IOS4979U,XS1002 xM,Lx 4978/4979 DISPLAY SUPPORT 

XINCLUDE IOS4974,XS1002 xM,Kx 4973/4974 PRINTER SUPPORT 
INCLUDE IOS4974U,XS1002 xM,Lx 4973/4974 PRINTER SUPPORT 
INCLUDE IOSTERM,XS1002 x2x REQD FOR TTY, ACCA, 4013 & 2741 
INCLUDE IOSTTY,XS1002 xMx ASR 33/35 TELETYPEWRITER SUPPORT 

XINCLUDE IOSACCA,XS1002 x3x ASCII ACCA TERMINAL SUPPORT 

XINCLUDE IOS4013,XS1002 xMx DIGITAL I/O TERMINAL SUPPORT 

xINCLUDE IOS2741,XS1002 XMx 2741 TERMINAL SUPPORT 
INCLUDE IOSVIRT,XS1002 xMx VIRTUAL TERMINAL SUPPORT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x DEVICE SUPPORT -- TRANSLATION TABLES 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
INCLUDE TRASCII,XS1002 x4x TELETYPEWRITER TRANSLATION 

XINCLUDE TREBASCXS1002 x3x MIRROR IMAGE ASCII TRANSLATION 

XINCLUDE TREBCD,XS1002 x5x 2741 EBDC TRANSLATION 

xINCLUDE TRCRSP,XS1002 x5x 2741 CORRESPONDENCE TRANSLATION 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x DEVICE SUPPORT — TIMERS 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XINCLUDE EDXTIMER,XS1002 x6x 4953/4955 TIMER (7840) SUPPORT 



Chapter 7. System Generation 119 



^INCLUDE EDXTIMR2,XS1002 *6* 4952 TIMER SUPPORT 
************************************************************ 

* DEVICE SUPPORT — BINARY SYNCHRONOUS COMMUNICATIONS 
************************************************************ 
*INCLUDE BSCAM,XS1002 *7,K* BSC COMM. ACCESS SUPPORT (XL) 
*INCLUDE BSCAMU,XS1002 *7,L* BSC COMM. ACCESS SUPPORT (UN-XL) 
*INCLUDE TPCOM,XS1002 *8* HOST COMMUNICATION SUPPORT 
************************************************************ 

* DEVICE SUPPORT — SENSOR INPUT/OUTPUT 

************************************************************ 
*INCLUDE SBCOM,XS1002 *9* BASIC SENSOR I/O SUPPORT 
*INCLUDE IOLOADER,XS1002 *9,K* SENSOR I/O DEVICE OPEN (XL) 
*INCLUDE IOLOADRU,XS1002 *9,L* SENSOR I/O DEVICE OPEN (UN-XL) 
*INCLUDE SBAI,XS1002 *M* ANALOG INPUT SUPPORT 
*INCLUDE SBAO,XS1002 *M* ANALOG OUTPUT SUPPORT 
*INCLUDE SBDIDO,XS1002 *M* DIGITAL INPUT/OUTPUT SUPPORT 
*INCLUDE SBPI,XS1002 *M* PROCESS INTERRUPT SUPPORT 
************************************************************ 

* DEVICE SUPPORT — EXIO CONTROL 

************************************************************ 
*INCLUDE IOSEXIO,XS1002 *M* EXIO DEVICE CONTROL SUPPORT 
************************************************************ 

* SYSTEM SUPPORT — ERROR LOGGING 
************************************************************ 

INCLUDE SYSLOG,XS1002 *A* I/O ERROR LOGGING 
*INCLUDE NOSYSLOG,XS1002 *A* NO I/O ERROR LOGGING 

INCLUDE CIRCBUFF,XS1002 *B* PROGRAM/MACHINE CHECK LOGGING 
************************************************************ 

* OPTIONAL FUNCTION SUPPORT 

************************************************************ 
*INCLUDE RLOADER,XS1002 *C,K* RELOCATING PROGRAM LOADER (XL) 

INCLUDE RLOADERU,XS1002 *C,L* RELOCATING PROGRAM LOADER (UN-XL) 
*INCLUDE EDXFLOAT,XS1002 *D* FLOATING POINT ARITHMETIC 

INCLUDE NOFLOAT,XS1002 *D* FOR SYSTEMS WITHOUT FLOATING POINT 
^INCLUDE EBFLCVT,XS1002 *E* EBCDIC/FLOATING PT CONV. 

INCLUDE QUEUEIO,XS1002 *F* QUEUE PROCESSING SUPPORT 
************************************************************ 

* SYSTEM SUPPORT — INITIALIZATION 
************************************************************ 

INCLUDE EDXINIT,XS1002 *H* SUPERVISOR INITIALIZATION 
INCLUDE DISKINIT,XS1002 *M* DISK(ETTE) INITIALIZATION 
INCLUDE LOADINIT,XS1002 *C* PROGRAM LOADER INITIALIZATION 
INCLUDE RW4963ID,XS1002 *M* 4963 FIXED HEAD REFRESH SUPPORT 
INCLUDE TERMINIT,XS1002 *1* TERMINAL INITIALIZATION 
INCLUDE INIT4978,XS1002 *M* 4978 DISPLAY INITIALIZATION 
^INCLUDE INIT4013,XS1002 *M* DIGITAL I/O TERMINAL INIT 
^INCLUDE $ACCARAM,XS1002 *3* ACCA MULTI-LINE ADAPTER RAM LOAD 
^INCLUDE BSCINIT,XS1002 *7* BISYNC (BSCAM) INITIALIZATION 
^INCLUDE $BSCARAM,XS1002 *7* BISYNC MULT-LINE ADAPTER RAM LOAD 
^INCLUDE TPINIT,XS1002 *8* HCF (TPCOM) INITIALIZATION 
^INCLUDE TIMRINIT,XS1002 *6* 4953/4955 TIMER INITIALIZATION 
*INCLUDE CLOKINIT,XS1002 *6* 4952 TIMER INITIALIZATION 
^INCLUDE SBIOINIT,XS1002 *M* SENSOR I/O INITIALIZATION 
^INCLUDE EXIOINIT,XS1002 *M* EXIO INITIALIZATION 
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Sample Contents of SLNKCNTL (Version 2.0) 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x COMMENTS MAY BE INCLUDED BY PUTTING AN f x» IN COLUMN 1. x 

x USE THIS TECHNIQUE TO OMIT UNNEEDED MODULES x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
OUTPUT SUPVLINK,EDX002 ENTRY=$START 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x SUPERVISOR SUPPORT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
INCLUDE EDXSYS,XS2002 xOx SYSTEM TABLES AND WORK AREAS 
INCLUDE ASMOBJ,EDX002 xOx OUTPUT FROM USER SYSTEM GENERATION 

XINCLUDE EDXSVCX,XS2002 x(),Kx TASK SUPERVISOR (XL) 
INCLUDE EDXSVCXU,XS2002 xO,Lx TASK SUPERVISOR (UN-XL) 
INCLUDE EDXALU,XS2002 xOx EDL INSTRUCTION EMULATOR 
INCLUDE EDXSTART,XS2002 xOx INITIALIZATION & ERROR HANDLER 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x DEVICE SUPPORT — DISK(ETTE)S 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
INCLUDE DISKIO,XS2002 xMx BASIC DISK(ETTE) SUPPORT 
INCLUDE D49624,XS2002 xMx 4962/4964 DISK(ETTE) SUPPORT 
INCLUDE D4963A,XS2002 xMx 4963 SUBSYSTEM SUPPORT 
INCLUDE D4966A,XS2002 XMx 4966 MAGAZINE SUPPORT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x DEVICE SUPPORT — TAPES 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XINCLUDE D4969A,XS2002 xMx 4969 TAPE SUPPORT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x DEVICE SUPPORT — TERMINALS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XINCLUDE EDXTIO,XS2002 xi,Kx BASIC TERMINAL SUPPORT (XL) 
INCLUDE EDXTIOU,XS2002 xl,L* BASIC TERMINAL SUPPORT (UN-XL) 

XINCLUDE EDXTERMQ,XS2002 xl,Kx ENQT/DEQT & TERMINAL QING (XL) 
INCLUDE EDXTRMQU,XS2002 xl,Lx ENQT/DEQT & TERMINAL QING (UN-XL) 

XINCLUDE IOS4979,XS2002 xM,Kx 4978/4979 DISPLAY SUPPORT (XL) 
INCLUDE IOS4979U,XS2002 xM,Lx 4978/4979 DISPLAY SUPPORT (UN-XL) 

XINCLUDE IOS4974,XS2002 xM,Kx 4973/4974 PRINTER SUPPORT (XL) 
INCLUDE IOS4974U,XS2002 xM,Lx 4973/4974 PRINTER SUPPORT (UN-XL) 
INCLUDE IOSTERM,XS2002 x2x REQD FOR TTY, ACCA, 4013 & 2741 
INCLUDE IOSTTY,XS2002 xMx ASR 33/35 TELETYPEWRITER SUPPORT 

XINCLUDE IOSACCA,XS2002 x3x ASCII ACCA TERMINAL SUPPORT 

XINCLUDE IOS4013,XS2002 XMx DIGITAL I/O TERMINAL SUPPORT 

XINCLUDE IOS2741,XS2002 xMx 2741 TERMINAL SUPPORT 

XINCLUDE IOSVIRT,XS2002 xM,Nx VIRTUAL TERMINAL SUPPORT 
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************************************************************ 

* DEVICE SUPPORT — TRANSLATION TABLES 
************************************************************ 

INCLUDE TRASCII,XS2002 *4* TELETYPEWRITER TRANSLATION 
*INCLUDE TREBASCXS2002 *3* MIRROR IMAGE ASCII TRANSLATION 
*INCLUDE TREBCD,XS2002 *5* 2741 EBDC TRANSLATION 
*INCLUDE TRCRSP,XS2002 *5* 2741 CORRESPONDENCE TRANSLATION 
************************************************************ 

* DEVICE SUPPORT — TIMERS 

************************************************************ 
*INCLUDE EDXTIMER,XS2002 *6* 4953/4955 TIMER (7840) SUPPORT 
*INCLUDE EDXTIMR2,XS2002 *6* 4952 TIMER SUPPORT 
************************************************************ 

* DEVICE SUPPORT — BINARY SYNCHRONOUS COMMUNICATIONS 
************************************************************ 

*INCLUDE BSCAM,XS2002 *7,K* BSC COMM. ACCESS SUPPORT (XL) 
*INCLUDE BSCAMU,XS2002 *7,L* BSC COMM. ACCESS SUPPORT (UN-XL) 
*INCLUDE TPCOM,XS2002 *8* HOST COMMUNICATION SUPPORT 
************************************************************ 

* DEVICE SUPPORT — SENSOR INPUT/OUTPUT 
************************************************************ 

*INCLUDE SBCOM,XS2002 *9* BASIC SENSOR I/O SUPPORT 

*INCLUDE IOLOADER,XS2002 *9,K* SENSOR I/O DEVICE OPEN (XL) 

*INCLUDE IOLOADRU,XS2002 *9,L* SENSOR I/O DEVICE OPEN (UN-XL) 

*INCLUDE SBAI,XS2002 *M* ANALOG INPUT SUPPORT 

*INCLUDE SBAO,XS2002 *M* ANALOG OUTPUT SUPPORT 

*INCLUDE SBDIDO,XS2002 *M* DIGITAL INPUT/OUTPUT SUPPORT 

*INCLUDE SBPI,XS2002 *M* PROCESS INTERRUPT SUPPORT 
************************************************************ 

* DEVICE SUPPORT — EXIO CONTROL 

************************************************************ 
*INCLUDE IOSEXIO,XS2002 *M* EXIO DEVICE CONTROL SUPPORT 
************************************************************ 

* SYSTEM SUPPORT — ERROR LOGGING 
************************************************************ 

INCLUDE SYSLOG,XS2002 *A* I/O ERROR LOGGING 
*INCLUDE NOSYSLOG,XS2002 *A* NO I/O ERROR LOGGING 

INCLUDE CIRCBUFF,XS2002 *B* PROGRAM/MACHINE CHECK LOGGING 
************************************************************ 

* OPTIONAL FUNCTION SUPPORT 

************************************************************ 
*INCLUDE RLOADER,XS2002 *C,K* RELOCATING PROGRAM LOADER (XL) 

INCLUDE RLOADERU,XS2002 *C,L* RELOCATING PROGRAM LOADER (UN-XL) 
*INCLUDE EDXFLOAT,XS2002 *D* FLOATING POINT ARITHMETIC 

INCLUDE NOFLOAT,XS2002 *D* FOR SYSTEMS WITHOUT FLOATING POINT 
*INCLUDE EBFLCVT,XS2002 *E* EBCDIC/FLOATING PT CONV. 

INCLUDE QUEUEIO,XS2002 *F* QUEUE PROCESSING SUPPORT 
*INCLUDE $DBUGNUC,XS2002 *G* RESIDENT $DEBUG SUPPORT 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x SYSTEM SUPPORT — INITIALIZATION 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

INCLUDE EDXIhflT,XS2002 xHx SUPERVISOR IN 

INCLUDE DISKINIT,XS2002 xMx DISK(ETTE) IN 

XINCLUDE TAPEINIT,XS2002 xMx TAPE INITIALI 

INCLUDE LOADINIT,XS2002 xCx PROGRAM LOADE 

INCLUDE RW4963ID,XS2002 xMx 4963 FIXED HE 

INCLUDE TERMINIT,XS2002 xlx TERMINAL INIT 

INCLUDE INIT4978,XS2002 xMx 4978 DISPLAY 

XINCLUDE INIT4013,XS2002 xMx DIGITAL I/O T 

XINCLUDE $ACCARAM,XS2002 x3x ACCA MULTI-LI 

XINCLUDE BSCINIT,XS2002 x7x BISYNC (BSCAM 

XINCLUDE $BSCARAM,XS2002 x7x BISYNC MULT-L 

XINCLUDE TPINIT,XS2002 x8x HCF (TPCOM) I 

XINCLUDE TIMRINIT,XS2002 x6x 4953/4955 TIM 

XINCLUDE CLOKINIT,XS2002 x6x 4952 TIMER IN 

XINCLUDE SBIOINIT,XS2002 xMx SENSOR I/O IN 

XINCLUDE EXIOINIT,XS2002 xMx EXIO INITIALI 



xxxxxxxxxxxxxxxx 
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eluded first and in this order 

f any terminals are installed, including 4973 

f IOSTTY, I0S2741, or IOSACCA is included 

f non-2741 terminals are on ACCA 

f IOSTTY is included 

BCD or TRCRSP or both are required if I0S2741 

d, depending on the code used by the 2741 

- correspondence or ASCII 

IMERS (feature 7840) and the 4952 native TIMER 

ly exclusive. Select the TIMER support 

or your configuration or none if no TIMER 

requ i red . 
or binary synchronous communication using 
CWRITE or Remote Management Utility support, 
or communication to a S/370 with the EDX Host 
i on Fac i 1 i ty 

f any Sensor I/O support is to be used 
DO, or PI) 

ot both, of these modules is required 
f the in storage program check/machine check 
be kept 

f programs are to be loaded from disk(ette). 
luded, an application program must be link 
h the superv i sor . 

ot both, of these modules is required 
or data formatting operations (GETEDIT, 
ORMAT) 
or queueing operations (FIRSTQ, NEXTQ, LASTQ, 



for program debugging (ODEBUG) 
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Note : You should include DDBFIX and CCBFIX with the other 
system i nt i a 1 i zat i on modules if you wixh to regenerate the 
starter system. 

2. Enter an asterisk (x) in column one (1) of each INCLUDE 
statement not required to create your supervisor. The 
asterisk makes the statement a comment and the module with 
the asterisk is not included in your supervisor. Be sure 
that the system definition statements created in Step B 
agree with the modules you include in this step. 

The modules with note L can be used if your generated sys- 
tem is to execute either on a Series/1 without the address 
translator feature or on a 64KB 4952 processor. These 
modules do not support the address translator. The SYSTEM 
configuration statement must specify STORAGE as 64 or less 
and PARTS may not be specified. 



3. Save the edited version of $LNKCNTL 
LINKCNTL on EDX002. 



in a data set named 



Step D - Assemble and Link Edit the Supervisor 



Edit $SUPPREP to use your allocated data sets. 

1. Read the data set $SUPPREP from volume ASMLIB. Figure 10 on 
page 125 shows $SUPPREP. 
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LOG 


OSYSPRTR 


JOB 


$SUPPREP 


REMARK 


**ENTER GO AFTER XS2002 HAS BEEN VARIED ONLINE** 


PAUSE 




PROGRAM 


$EDXASM,ASMLIB 


NOMSG 




PARM 




DS 


$EDXDEFS,EDX002 


DS 


ASMWORK*EDX002 


DS 


ASMOBJ,EDX002 


EXEC 




JUMP 


ENDJ0B,GT,4 


PROGRAM 


SLINK, ASMLIB 


NOMSG 




PARM 


$SYSPRTR 


DS 


LINKCNTL,EDX002 


DS 


LEWORK1,EDX002 


DS 


LEWORK2,EDX002 


EXEC 




JUMP 


ENDJ0B,GT,4 


PROGRAM 


$UPDATE,EDX002 


NOMSG 




PARM 


SSYSPRTR SUPVLINK,EDX002 $EDXNUCT , EDX002 YES 


EXEC 




LABEL 


ENDJOB 


EOJ 





Figure 10. Example of V2.0 Procedure $SUPPREP on ASMLIB 



2. Modify any of the procedure statements* particularly the 
DS data set names* and volumes to satisfy your conventions. 
No changes are necessary for your first supervisor gener- 
ation if you allocated all the required data sets as 
instructed in Step A. $EDXNUCT is automatically allocated 
by the $UPDATE Step and you may wish to change this name to 
SEDXNUCx (x = any alphameric character) to save different 
supervisor versions in individual data sets. The supervi- 
sor name must start with the seven characters $EDXNUC. 

3. Save the edited version of $SUPPREP in a data set named 
SUPPREPS on EDX002. 



Step E - Format the Supervisor 



When you invoke the procedure SUPPREPS* the job stream assem- 
bles and link edits $ E D X D E F and formats the supervisor. 
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1. Vary on diskette XS1002 (Version 1.1) or XS2002 (Version 
2) . 

2. Load utility program $JOBUTIL. When prompted for the pro- 
cedure name, reply SUPPREPS, EDX002 . 

3. When SJOBUTIL completes execution, examine the output 
printed on $SYSPRTR for errors. Errors are usually caused 
by incorrect editing of SEDXDEF, $LNKCNTL, or $SUPPREP. If 
errors are found, examine your supervisor specification 
and link edit statements and then edit SEDXDEFS, LINKCNTL, 
or SUPPREPS as necessary. 

When you have corrected the errors, reload SJOBUTIL to 
repeat the procedure. 

Unresolved WXTRN messages resulting from the execution of 
SLINK can occur, and you should examine the messages to 
determine whether the referenced names refer to modules 
that you require in your supervisor. 

An unresolved WXTRN of $PR0G1 will normally occur unless 
you link edit an application program with the supervisor, 
as is described in "Other Considerations" on page 128. 

Unresolved EXTRN messages should not occur if a valid 
supervisor has been created. A complete listing of all 
supervisor module section names and entry point labels is 
included in Appendix B. 



Step F - Test the Generated Supervisor 



Test the generated supervisor for a disk based system. 

1. Load the utility program $COPY or 0COPYUT1 to copy OEDXNUCT 
into $EDXNUC on EDX002. 

Note i Procedure SUPPREPS stores the created supervisor as 
member SEDXNUCT on EDX002. 

2. IPL the system from volume EDX002 to load the new supervi- 
sor . 

Wait until the system is initialized before loading a 
program. If your system has timers, the system is initial- 
ized when the SET TIME AND DATE USING $T message appears 
(or when the time and date are printed). If your system 
does not have timers, the system is initialized when it 
enters the wait state after the storage map has been dis- 
played . 
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3. Test the supervisor by executing utility programs that 
exercise the various supervisor components (such as disk 
I/O* sensor I/O* etc.) 

Notes: 

1. If the new supervisor fails to operate correctly* you must 
restore the original contents of $EDXNUC by IPLing from a 
diskette. Use $COPY or $C0PYUT1 to copy the starter super- 
visor from diskette UT3001 or UT4001 to $EDXNUC on EDX002. 

2. If any errors are encountered* repeat Steps B through E of 
thi s procedure . 

3. If you relocated any volumes in a tailored system gener- 
ation (particularly EDX002)* copy the new supervisor into 
the SEDXNUC data set on a copy of the utility diskette 
(UT3001 or UT4001) and perform a complete system installa- 
tion. 

4. The actual addresses of CSECT and ENTRY point labels in the 
$EDXNUCT or $EDXNUC modules stored on disk will be X'100' 
greater than those shown on the link edit map. This is 
because $UPDATE adds a 256 byte header to all $EDXNUCx mod- 
ules . 



Step G - Verify the System Generation Process 



To verify that the system generation has been performed suc- 
cessful ly : 

1. Assemble and execute the sample program CALCSRC. 

Note : CALCDEMO source instructions are located in the data 
set CALCSRC on the disk volume EDX002. To assemble 
CALCDEMO* refer to the procedure for program preparation 
described in Utilities* Operator Commands* Program 
Preparation* Messages and Codes . 

2. When the assembly is complete, load the test program into 
storage for execution by using the $L operator command. 

3. When you receive the prompts A= and B=> enter any decimal 
integer values less than 2 billion, followed by a carriage 
return or ENTER after each entry. 

A sample of the entries and resulting output follows: 
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> $L CALCDEMO 

CALCDEMO 3P, 10:59:55, LP= 7F00 
Press ATTENTION and enter CALC or STOP 

> CALC 

A = 12 
B = 52 

A + B = 64 

A - B = -40 

A * B = 624 

A / B = REMAINDER = 12 

Press ATTENTION and enter CALC or STOP 

> CALC 



OTHER CONSIDERATIONS 



System Generation without the Program Preparation Facility 



For Series/1 systems that do not include the Program Prepara- 
tion Facility, installation requires the following general 
steps : 

1. Assemble and link edit the supervisor for the target 
Series/1 on a system that supports program preparation. 

2. Assemble application programs for the target Series/1 on a 
system that supports program preparation. 

3. Use utility program SINITDSK to initialize one or more 
diskettes with IPL text, space for the supervisor program, 
and a library to contain your application programs. 

4. Transfer your supervisor to $EDXNUC on diskette(s) with 
either SCOPY or SC0PYUT1. 

5. Copy $L0ADER, any of the utilities, and the application 
programs that will be required on the target Series/1, onto 
the diskette(s) with $C0PYUT1. 

6. Install the diskette(s) on the target machine for 
execution. 
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Program Loading from Diskettes 



If multiple diskettes are processed on a single diskette unit, 
each diskette must contain the program $LOADER in the same 
location. To load a program into storage from diskette, the 
diskette containing the program must be online (SVARYON) when 
the LOAD instruction or the $L command is executed. 



Automatic Application Initialization and Restart 

You can design your system so that your application program(s) 
are automatically started following a manual IPL of the system 
or an automatic IPL invoked by the restoration of power after a 
power outage . 

There is no system requirement for operator involvement in the 
IPL procedure, other than to insure the IPL mode switch is in 
the "AUTO IPL" position and to turn on the power for the initial 
Series/1 IPL. Any other requirement for operator involvement 
Csuch as for entry of time and date) is a function of your 
app 1 i cat ion. 

The automatic application initialization facility allows you 
to start an application immediately after the system initial- 
ization process has been completed. 

Consideration must be given to the type of program control the 
Event Driven Executive will be supporting. In a multiprogram- 
ming, multitasking system, the relocatable loader loads pro- 
grams from disk or diskette to storage. In a single program, 
multitasking system, a single application program is link 
edited with the Event Driven Executive supervisor and loaded at 
IPL time. In either system the program may consist of a primary 
task or a primary task and secondary task(s). 



Multiprogramming, Multitasking System 

In a multiprogramming, multitasking system, the automatic 
application initialization facility requires a system with the 
Event Driven Executive program load facility and is loaded (via 
IPL) from disk or diskette. Further, if your system contains 
both disk and diskette devices, then the automatic IPL must be 
performed with a disk as the IPL source. 

The facility works in the following manner. At the end of the 
regular system initialization process (when all I/O devices 
have been prepared and the system is ready for normal oper- 
ation), a LOAD instruction will be issued for your program 
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named $INITIAL which must be located on the IPL volume. If no 
such program exists, no further action is taken and programs 
must be initiated via $ L commands entered at terminals. If 
$INITIAL does exist, it is loaded for execution. The functions 
which can be performed by $INITIAL, such as data base initial- 
ization, data logging, outboard device initialization, and 
loading of other application programs, are entirely under your 
control . 



$INITIAL is loaded in partition one immediately after the 
supervisor. The system attempts to pass to it a one word param- 
eter indicating the IPL mode. Zero in this word indicates a 
manual IPL. A one in this word indicates "Auto IPL". In order 
to receive this word, PARM=1 must have been coded in the PRO- 
GRAM statement of SINITIAL. If PARM=1 is not coded, the IPL 
mode cannot be determined. 

One function that $INITIAL can perform differently for manual 
versus automatic IPL situations is the setting of the supervi- 
sor time and date. In a manual IPL situation the time and date 
are normally entered by an operator via the $T command. In an 
unattended auto-IPL situation it may be required that $INITIAL 
obtain the time and date information from such sources as an 
external battery operated clock (connected to Series/1 Digital 
Input features), a checkpoint file maintained on disk or 
diskette by the application program during normal operation, 
etc. 

Regardless of the source of the time and date information, the 
following instructions will move the information from $INITIAL 
to the supervisor time and date table. If $INITIAL is to be 
assembled by $EDXASM, then the statement COPY PROGEQU must be 
included after the PROGRAM statement to define the label 
$TIMRTBL. In the following example TIMRDATA is a six word table 
within $INITIAL containing the time and date as hexadecimal 
values in the sequence hours, minutes, seconds, month, day, 
year . 

For example, the following code sets the clock to 13:24505 and 
the date to December 25, 1979. 
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MOVE #1,$TIMRTBL 

MOVE (8*#1),TIMRDATA,6 



TIMRDATA DC X'tJOOD 1 

DC X'OulS 1 

DC X f 0005 f 

DC X»000C f 

DC X , 0019 f 

DC X f 004F f 



$INITIAL can also load additional programs. For example* if 
you wish to have automatic initialization of the Multiple 
Terminal Manager in partition two* the Indexed Access Method in 
partition three* and the Session Manager in partition four* 
your ^INITIAL program Mould have the following statements: 



LOAD $MTM*PART=2,ERR0R=N0MTM 
LOAD $IAM*PART=3,ERR0R=N0IAM 
LOAD $SMMAIN*PART=4, ERROR =NOSESS 



NOIAM (Routine to handle the error) 
NOSESS (Routine to handle the error) 
NOMTM (Routine to handle the error) 



$INITIAL can have data sets and overlay programs defined in its 
PROGRAM statement but cannot use the •??' option which implies 
data set definition at load time. Note that no program load 
logging message is printed out with $INITIAL and if any errors 
occur during the load process such as unresolved data set 
names* no logging message will be printed. If at any time it is 
desired to disable the automatic initialization feature for a 
period of time* the program 5INITIAL should be renamed. 



Single Program» Multitasking System 



In a single program* multitasking system* the relocatable 
loader is excluded from your supervisor and the disk or 
diskette is used for data only. 

A single application program must be link edited with the 
supervisor to form a single load module that can be loaded at 
IPL time. This application program must contain a CSECT named 
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$PR0G1. In addition, the PROGSTOP instruction is not permitted 
in this program. Therefore* the program source module should 
contain statements as follows: 



SPR0G1 
MAIN 



CSECT 
PROGRAM 



START 



ENDPROG 
END 



When the supervisor is loaded at IPL time and the multiprogram- 
ming feature is not included, the above program is automat- 
ically started. 

To remove the multiprogramming feature from the Event Driven 
Executive supervisor, do not include the module "RLOADER" in 
the custom system generation and delete the transient loader 
($LOADER) from the system resident disk volume (normally 
EDX002), if there is a disk on the system. 



Initializing Secondary Volumes 



If you create a supervisor that defines secondary disk volumes 
in. addition to those defined as primary volumes, the additional 
secondary volumes must be initialized before they can be used 
for data or program storage. To initialize a secondary volume, 
execute the utility program SINITDSK and create the directory 
for each additional volume defined. You must initialize a fixed 
head volume before doing an IPL from it. This allows the system 
to search for the program $ LOADER dur i ng initialization. 



Creating a Supervisor for Another Series/1 



You can create a supervisor for another Series/1 on a Series/1 
with the Program Preparation Facility. Follow the procedure 
for "Generating the Supervisor" on page 115, but save the edit- 
ed copies of $EDXDEF and $LNKCNTL under different names for 
each different Series/1 hardware configuration. SUPPREPS must 
be modified to support the d i f f erent data set names. 
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The resulting supervisor programs generated would be stored 
under different SEDXNUCx names. These can then be copied to 
diskette from $EDXNUCx for transfer to the target Series/1. The 
diskette must have been initialized previously by the utility 
$INITDSK to include IPL text and space for a supervisor. 



Sample Configurations 



The following figures show sample configurations for $EDXDEF 
For actual definitions refer to the Program Directory. 



SYSTEM STORAGE=96,MAXPROG=(3,2,3) , C 

PARTS=(32,6,10) 
DISK DEVICE=4962-1,ADDRESS=03, C 

VOLSER=EDX002,VOLORG=0,VOLSIZE=100, C 

LIB0RG=241 
DISK DEVICE=4962-1,VOLSER=EDX003, C 

BASE VOL=EDX002,VOLORG= 100, C 

VOLSIZE=101,LIBORG=1 
DISK DEVICE=4962-1,V0LSER=ASMLIB, C 

BASEVOL=EDX002,VOLORG=201, C 

VOLSIZE=100,LIBORG=1 
DISK DEVICE=4964,ADDRESS=02 
DISK DEVICE=4966,ADDRESS=22,END=YES 
SSYSLOG TERMINAL DEVICE=4978 , ADDRESS=04 , C 

HDCOPY=$SYSPRTR 
SSYSLOGA TERMINAL DEVICE=TTY , ADDRESS=00 , CRDE LAY=4 , C 

PAGSIZE=24,B0TM=2 3,SCREEN=YES 
$SYSPRTR TERMINAL DEVICE=4974 , ADDRESS=0 1 , END= YES 

ENTRY SEDXPTCH 
$EDXPTCH DATA 128F'0 f SYSTEM PATCH AREA 
END 



Figure 11. Example of $EDXDEF: Configuration for 4962-1F 
(9.3MB disk) 
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SYSTEM ST0RAGE=64,MAXPR0G=5 

DISK DEVICE=4962-1F,ADDRESS=0 3, C 

VOLSER=EDX002,VOLORG=0,VOLSIZE=100, C 

LIB0RG=241,FHV0L=FHV0L 
DISK DEVICE=49 6 2-1F,VOLSER=EDX00 3, C 

BASEVOL=EDX0 2,VOLORG=100, C 

VOLSIZE=101,LIBORG=1 
DISK DEVICE=4962-1F,V0LSER=ASMLIB, C 

BASEVOL=EDX00 2,VOLORG=201, C 

VOLSIZE=100,LIBORG=1 
DISK DEVICE=49 64,ADDRESS=0 2 
DISK DEVICE=49 6 6,ADDRESS=2 2,END=YES 
SSYSLOG TERMINAL DEVICE=4979 , ADDRESS=04 , C 

HDCOPY=$SYSPRTR 
$SYSLOGA TERMINAL DEVICE=TTY , ADDRESS=00 , CRDE LAY = 4 , C 

PAGSIZE=24,B0TM=2 3,SCREEN=YES 
SSYSPRTR TERMINAL DEVICE=4974 , ADDRESS=01 , END=YES 

ENTRY $EDXPTCH 
$EDXPTCH DATA 128F T 0» SYSTEM PATCH AREA 

END 



Figure 12. Example of $EDXDEF: Configuration for 4962-1 
(9.3MB fixed-head disk) 
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SYSTEM STO 
PARTS= 

DISK DEV 
VOLSER 
LIBORG 

DISK DEV 
BASEVO 
VOLSIZ 

DISK DEV 
BASEVO 
VOLSIZ 

DISK DEV 

DISK DEV 

$SYSLOG TERMINAL DEV 

HDCOPY 

SSYSLOGA TERMINAL DEV 

PAGSIZ 

SSYSPRTR TERMINAL DEV 

ENTRY $ED 
$EDXPTCH DATA 128 

END 



RAGE=19 6,MAXPROG=(l,2,l,3,4,l), C 

(9,12,7,4,20,32) 

ICE=4962-3,ADDRESS=03, C 

=EDX0u2,VOLORG=0,VOLSIZE=100, C 

= 361 

ICE=4962-3,V0LSER=EDX003, C 

L=EDX002,VOLORG=100, C 

E=101,LIBORG=1 

ICE=4962-3,VOLSER=ASMLIB, C 

L=EDX002,VOL0RG=201, C 

E=100,LIBORG=1 

ICE=4964,ADDRESS=02 

ICE=49 6 6,ADDRESS=2 2,END=YES 

ICE=4979,ADDRESS=04, C 

=$SYSPRTR 

ICE=TTY,ADDRESS=0 0,CRDELAY=4, C 

E=24,BOTM=2 3,SCREEN=YES 

ICE=4 9 74,ADDRESS=01,END=YES 

XPTCH 

F'O 1 SYSTEM PATCH AREA 



Figure 13. Example of $EDXDEF: 
4962-4 (13.9MB disk) 



Configuration for 4962-3 or 
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SYSTEM 

DISK 
DISK 
DISK 



PAR 



SSYSLOG 

$SYSLOGA 

D497800 

D497801 

D497802 

D497803 

D497804 

D497805 

$TERMA 
STERMB 
$SYSPRTR 
LPRINTER 



DISK 
DISK 

DISK 

DISK 

DISK 



VOL 
LIB 

VOL 

BAS 
VOL 

BAS 
VOL 

BAS 
VOL 



SEDXPTCH 



BAS 

VOL 
TERMINAL 

HDC 
TERMINAL 

PAG 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
BSCLINE 

MC = 
TIMER 
ENTRY 
DATA 
END 



STORAG 
TS=C32 
DEVICE 
DEVICE 
DEVICE 
SER=ED 
ORG=12 
LIBORG 
SER=AS 
DEVICE 
EVOL=E 
SIZE=3 
DEVICE 
EVOL=E 
SIZE=2 
DEVICE 
EVOL=E 
SIZE=1 
DEVICE 
EVOL=E 
SIZE=1 
DEVICE 
OPY=$S 
DEVICE 
SIZE=2 
DEVICE 
OPY=LP 
DEVICE 
OPY=$S 
DEVICE 
OPY=$S 
DEVICE 
OPY=$S 
DEVICE 
OPY=$S 
DEVICE 
OPY=$S 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
ADDRES 
NO, END 
ADDRES 
$EDXPT 
128F'0 



E = 
,9 
= 4 
= 4 
= 4 
XO 
9, 
= 1 
ML 
= 4 
DX 
3, 
= 4 
DX 
2, 
= 4 
DX 
2, 
= 4 
DX 
11 
= 4 
YS 
= T 
4, 
= 4 
RI 
= 4 
YS 
= 4 
YS 
= 4 
YS 
= 4 
YS 
= 4 
YS 
= V 
= V 
= 4 
= 4 
S = 
= Y 
S = 
CH 



128,MAXPR 

,23) 

964,ADDRE 

964,ADDRE 

963-23, AD 

02,VOLORG 

FHVOL=FHV 

,VOLSIZE= 

IB, DEVICE 

963-23, VO 

002,VOLOR 

LIBORG=l 

963-23, VO 

002,VOLOR 

LIBORG=l 

963-23, VO 

002,VOLOR 

LIBORG=l 

963-23, VO 

002,VOLOR 

,LIBORG=l 

978,ADDRE 

PRTR,PART 

TY, ADDRES 

BOTM=23,S 

978,ADDRE 

NTER,PART 

978,ADDRE 

PRTR,PART 

978,ADDRE 

PRTR,PART 

978,ADDRE 

PRTR,PART 

978,ADDRE 

PRTR,PART 

978,ADDRE 

PRTR,PART 

IRT,ADDRE 

IRT,ADDRE 

974,ADDRE 

973,ADDRE 

19,TYPE=P 

ES 

40 



OG=(10,10,10), 

SS=02,TASK=YES 

SS=12,TASK=YES 

DRESS=48, 

=0,VOLSIZE=100, 

OL,TASK=YES 

80,BASEVOL=EDX002, 

=4963-23, VOLORG=100 

LSER=PRGRMS, 

G=180, 

LSER=MTMSTR, 
G=213, 

LSER=SCRNS, 
G=235, 

LSER=EDX003, 

G=100, 

,END=YES 

SS=2A, 

= 1 

S=00,CRDELAY=4, 

CREEN=YES 

SS=24, 

= 2 

SS=25, 

= 3 

SS=26, 

= 3 

SS=27, 

= 3 

SS=28, 

= 3 

SS=29, 

= 3 

SS=TERMB,SYNC=YES 

SS=TERMA 

SS = 01 

SS=21,END=YES 

T,RETRIES=5, 



SYSTEM PATCH AREA 



Figure 14 



$EDXDEF and 
Definition* 



Multiple Terminal Manager Volume 
Configuration for 4963-23 (23MB disk) 
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OSYSLOG 



$SYSLOGA 



$SYSPRTR 



5EDXPTCH 



SYSTEM STO 
PARTS= 



DISK 



DISK 



DISK 



DISK 
DISK 



DEV 
VOLSER 
LIBORG 

DEV 
BASEVO 
VOLSIZ 

DEV 
BASEVO 
VOLSIZ 

DEV 

DEV 



TERMINAL DEV 
HDCOPY 
TERMINAL DEV 
PAGSIZ 
TERMINAL DEV 
ENTRY $ED 
DATA 128 
END 



RAGE=128,MAXPROG=(3,6) , C 

(32,32) ,OOMMON=EDXSVC 

ICE=4963-29,ADDRESS=48, C 

=EDX0 02,VOLORG=0,VOLSIZE=100, C 

= 129 

ICE=4 9 63-2 9,VOLSER=EDX00 3, C 

L=EDX002,VOLORG=100, C 

E=100, LIBORG=l 

ICE=4963-29,VOLSER=ASMLIB, C 

L=EDX002,VOLORG=200, C 

E=100,LIBORG=1 

ICE=4964,ADDRESS=02 

ICE=4 9 6 6,ADDRESS=2 2,END=YES 

ICE=4979,ADDRESS=04, C 

=$SYSPRTR 

ICE=TTY,ADDRESS=00,CRDELAY=4, C 

E=24,BOTM=2 3,SCREEN=YES 

ICE=49 74,ADDRESS=01,END=YES 

XPTCH 

F'O 1 SYSTEM PATCH AREA 



F i gure 15 . 



Example of 
(29MB disk) 



$EDXDEF: Configuration for 4963-29 
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SYSTEM ST0RAGE=128,MAXPR0G=(4,4), C 

PARTS=C32,32),DATEFMT=MMDDYY 
DISK DEVICE=4963-23,ADDRESS=48, C 

VOLSER=EDX0 02,VOLORG=0,VOLSIZE=100, C 
LIBORG=12 9,FHVOL=FHVOL 
DISK DEVICE=4963-23,VOLSER=EDX003, C 

BASEVOL=EDX00 2,VOLORG=100, C 

VOLSIZE=100,LIBORG=1 
DISK DEVICE=4963-23,V0LSER=ASMLIB, C 
BASEVOL=EDX0 2,VOLORG=2 00, C 

VOLSIZE=100,LIBORG=1 
DISK DEVICE=4964,ADDRESS=02 
DISK DEVICE=4 9 6 6,ADDRESS=2 2,END=YES 
SSYSLOG TERMINAL DEVICE=4979 , ADDRESS=04 , C 

HDCOPY=$SYSPRTR 
SSYSLOGA TERMINAL DEVICE=TTY, ADDRESS=00 , CRDELAY=4 , C 

PAGSIZE=24,B0TM=2 3,SCREEN=YES 
$SYSPRTR TERMINAL DEVICE=4974 , ADDRESS=01 , END=YES 

ENTRY $EDXPTCH 
SEDXPTCH DATA 128F , 0' SYSTEM PATCH AREA 

END 



Figure 16. Example of $EDXDEF with date format 
specified: Configuration for 4963-23 (23MB 
f i xed-head disk) 
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SYSTEM ST0RAGE=256, C 

MAXPR0G=(3,1,5,2,2,1,1,4), C 

PARTS=(15,4,21,13,17,11,8,23) 
DISK DEVICE=4963-64,ADDRESS=48, C 

VOLSER=EDX0 2,VOLORG=0,VOLSIZE=46, C 

LIB0RG=129 
DISK DEVICE =4963-64, VOLSER=EDX003, C 

BASEVOL=EDX002,VOLORG=46, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=49 6 3-64,V0LSER=ASMLIB, C 

BASEVOL=EDX0 02,VOLORG=9 2, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=4963-64,VOLSER=EDX004, C 

BASEVOL=EDX002,VOLORG=138, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=49 6 3-64,VOLSER=EDX0 05, C 

BASEVOL=EDX002,VOLORG=184, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=49 6 3-64,VOLSER=EDX0 06, C 

BASEVOL=EDX0 2,VOLORG=2 30, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=49 6 3-64,VOLSER=EDX0 07, C 

BASEVOL=EDX00 2,VOLORG=276, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=4 9 6 3-64,VOLSER=EDX0 08, C 

BASEVOL=EDX0 2,VOLORG=32 2, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=4964,ADDRESS=0 2,VERIFY=NO 
DISK DEVICE=4966,ADDRESS=22, C 

VERIFY=NO,END=YES 
$SYSLOG TERMINAL DEVICE=4979 , ADDRESS=04 , C 

HDCOPY=$SYSPRTR 
$SYSLOGA TERMINAL DEVICE=TTY , ADDRESS=00 , CRDE LAY=4 , C 

PAGSIZE=24,B0TM=2 3,SCREEN=YES 
SSYSPRTR TERMINAL DEVICE=4974 , ADDRESS=01 , END=YES 

ENTRY $EDXPTCH 
$EDXPTCH DATA 128F l f SYSTEM PATCH AREA 

END 



Figure 17. Example of $EDXDEF: Configuration for 4963-64 
(64MB disk) with a mapping of all (358) available 
cylinders 
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$SYSLOG 



SSYSLOGA 



$SYSPRTR 



$EDXPTCH 



SYSTEM STORAGE=9 6,MAXP 

PARTS=(16,18),COMM 

DEVICE=4963-58, 

VOLSER=EDX002,VOLO 

LIBORG=129,FHVOL=F 

DEVICE=4963-58, 

BASEVOL=EDX002,VOL 

VOLSIZE=46, LIBORG = 

DEVICE=4963-58, 

BASEVOL=EDX002,VOL 

VOLSIZE=46,LIBORG= 

DEVICE=4964,ADD 

DEVICE=4966,ADD 

TERMINAL DEVICE=4979 , ADD 

HDCOPY=$SYSPRTR 
TERMINAL DEVICE=TTY , ADDR 
PAGSIZE=24,B0TM=23 
TERMINAL DEVICE=4974 , ADD 
ENTRY $EDXPTCH 
DATA 128F f 0» 
END 



DISK 



DISK 



DISK 



DISK 
DISK 



R0G=(3,4), 

ON=START 

ADDRESS=48, 

RG=0,VOLSIZE=46, 

HVOL 

VOLSER=EDX003, 

0RG=46, 

1 

VOLSER=ASMLIB, 

ORG=92, 

1 

RESS=02 

RESS=22,END=YES 

RESS=04, 

ESS=00,CRDELAY=4, 

,SCREEN=YES 

RESS=01,END=YES 

SYSTEM PATCH AREA 



F i gure 18 



Example of 
(58MB f i xed- 



$EDXDEF: Configuration 
head disk) 



for 4963-58 
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CDRVTA 
CDRVTB 



SYSTE 
DISK 

DISK 

DISK 

DISK 

DISK 

TAPE 

DISK 

VERI 
TERMI 

TERMI 



SSYSLOG TERMI 

5SYSLOGA TERMI 

$SYSPRTR TERMI 
TIMER 
BSCLI 
BSCLI 
BSCLI 
BSCLI 

ENTRY 
$EDXPTCH DC 
END 



M ST 

PARTS 

DE 

VOLSE 

LIBOR 

DE 

BASEV 

VOLSI 

DE 

BASEV 

VOLSI 

DE 

BASEV 

VOLSI 

DE 

VERIF 

DE 

DENS 

DE 

FY=NO, 

NAL DE 

LINSI 

NAL DE 

LINSI 

NAL DE 

HDCOP 

NAL DE 

HDCOP 

NAL DE 

ADDRE 

NE ADD 

NE ADD 

NE ADD 

NE ADD 

END = Y 

$ED 

128 



ORAGE=2 

=(16,32 

VICE=49 

R=EDX00 

G=361,V 

VICE=49 

OL=EDX0 

ZE=51,L 

VICE=49 

OL=EDX0 

ZE=50,L 

VICE=49 

OL=EDX0 

ZE=100, 

VICE=49 

Y=NO,TA 

VICE=49 

ITY=DUA 

VICE=49 

TASK=YE 

VICE=VI 

ZE=132, 

VICE=VI 

ZE=132 

VICE=49 

Y=$SYSP 

VICE=49 

Y=$SYSP 

VICE=49 

SS = 40 

RESS=68 

RESS=69 

RESS=6A 

RESS=6B 

ES 

XPTCH 

F'O' 



56,MAXP 

,32,32) 

62-3, AD 

2,VOLOR 

ERIFY=N 

62-3, VO 

02,VOLO 

IBORG=l 

62-3, VO 

02,VOLO 

IBORG=l 

62-3, VO 

02,VOLO 

LIBORG= 

64,ADDR 

SK=YES 

69,ADDR 

L, LABEL 

66,ADDR 

S,END=Y 

RT,ADDR 

SYNC=YE 

RT,ADDR 



ROG=(5,5,5,5) , 

, 

DRESS=03, 

G=0,VOLSIZE=100, 

0,TASK=YES 

LSER=EDX003, 

RG=100, 

LSER=CDRSRC, 
RG=151, 

LSER=ASMLIB, 

RG=201, 

1 

ESS=02, 

ESS=4C,ID=TAPE01, 

=BLP,TASK=YES 

ESS=22, 

ES 

ESS=CDRVTB, 

S 

ESS=CDRVTA, 



79,ADDRESS=04, 

RTR,PART=2 

78,ADDRESS=24, 

RTR,PART=3 

74,ADDRESS=01,END=YES 

,TYPE=PT,RETRIES=6,MC=YES 
,TYPE=PT,RETRIES=6,MC=YES 
,TYPE=SA,RETRIES=6,MC=YES 
,TYPE=SA,RETRIES=6,MC=YES, 



Figure 19. Example of $EDXDEF: Configuration for 4969 tape 
and Remote Management Utility using the PASSTHRU 
f unct i on 
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PART III - THE INDEXED ACCESS METHOD 



Part III is organized into two chapters. "Chapter 8. Overview 
of the Indexed Access Method" on page 145 describes the 
features* components* and functions that comprise the Indexed 
Access Method. It also provides an overview of the indexed 
data set* how the Indexed Access Method processes the data set* 
how to prepare your applications* and how to get your data into 
an indexed data set. 

"Chapter 9. Planning and Designing Indexed Applications" on 
page 159 contains detailed information on how to define* cre- 
ate* access* and maintain an indexed data set and how to handle 
errors. It also explains how indexed data sets are structured 
and managed . 
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CHAPTER 8. OVERVIEW OF THE INDEXED ACCESS METHOD 



The Indexed Access Method licensed program is a data management 
facility that operates under the Event Driven Executive. It 
allows you to build* maintain* and access indexed data sets. 
In an indexed data set* each of your records is identified by 
the contents of a predefined field called a key . The Indexed 
Access Method builds into the data set an index of keys that 
provides access to your records. 

The Indexed Access Method offers the following features: 

• Direct and sequential processing. Multiple levels of 
indexing are used for direct access* and sequence chaining 
of data blocks is used for sequential access. 

• Support for high insert and delete activity without sig- 
nificant performance degradation. Free space can be dis- 
tributed throughout the data set and in a free pool at the 
end of the data set so that new records can be inserted. 
The space occupied by a deleted record is immediately 
available for new records. 

• Concurrent access to a single data set by several requests. 
These requests can be from one or more programs. Data 
integrity is maintained by a file* block* and record level 
locking system that prevents other programs from accessing 
the portion of the file being modified. 

• Implementation as a separate task. A single copy of the 
Indexed Access Method executes and coordinates all 
requests. A buffer pool supports all requests and opti- 
mizes the space required for physical I/O; the only buffer 
required in an application program is the one for the 
record being processed. 

• A utility program ($IAMUT1) which allows you to create* 
format, load, unload, and reorganize an indexed data set. 

• File compatibility. Data files created by the Event Driven 
Executive Indexed Access Method are compatible with those 
created by the IBM Series/1 Realtime Programming System 
Indexed Access Method licensed program, 5719-AM1, provided 
that the block size is a multiple of 256. 

• Data Protection. All input/output operations are performed 
by system functions. Therefore, all data protection 
facilities offered by the system also apply to indexed 
files. The following additional data protection is pro- 
vided: 
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The exclusive option - specifies that the file is for 
the exclusive use of a requester. 

Record locking - automatically prevents two requests 
from accessing the same data record at the same time. 

Immediate write back - causes all updated records to be 
written back to the file immediately. 

Accidental key modification is prevented - this helps 
ensure that your index matches the corresponding data. 



DEVICES SUPPORTED 

The Indexed Access Method supports indexed data sets on the 

following direct access devices; 

• 4962 Disk Storage Unit 

• 4963 Disk Subsystem 
4964 Diskette Unit 

• 4966 Diskette Magazine Unit 

FUNCTIONS 



Functions available include those that can be called from an 
application program and a utility to define and maintain an 

indexed data set. 



I/O Requests 



I/O requests allow you to build an indexed data set and to per- 
form direct or sequential processing on that data set. Rou- 
tines using these functions are written in Event Driven 
Language and can be included in programs written in any lan- 
guage that supports the calling of Event Driven Executive 
Language routines. 

You request the services of the Indexed Access Method through 
the Event Driven Language CALL instruction in the following 
general form: 

CALL IAM» (func) » iacb, (parm3) , (parm4) » (parm5) 
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For information on coding the parameters and functions* refer 
to the Language Reference . 

The following requests can be invoked: 



Operands 
PROCESS 



LOAD 



Descr i pt i on 

Builds an Indexed Access Control Block (IACB) and 
connects it to an indexed data set. You can then use 
the IACB to issue requests to that data set to ready 
update* insert* and delete records. A program can 
issue multiple PROCESS functions to obtain multiple 
IACBs for the same data set* enabling the data set 
to be accessed by several requests concurrently 
within the same program. 

Similar to PROCESS but used to load or extend the 
initial collection of records. 



GET 



Directly retrieves a single record from the data 
set. If you specify the update mode, the record is 
locked (made unavailable to other requests) and 
held for possible modification or deletion. Use 
GET to retrieve a single record from the data set. 



GETSEQ Sequentially retrieves a single record from the 
data set. If you specify the update mode, the record 
is locked (made unavailable to other requests) and 
held for possible modification or deletion. Use 
GETSEQ when you are performing sequential oper- 
at i ons . 



PUT 



Loads or inserts a new record depending on whether 

the data set was opened with the LOAD or PROCESS 

request. Use PUT when you are adding records to a 
data set . 



PUTUP 



Replaces a record that is being held for update. 
Use PUTUP to modify a record. 



PUTDE 



Deletes a record that is being held for update. Use 
PUTDE to delete a record. 



RELEASE Releases a record that is being held for update. 
Use RELEASE when a record that was retrieved for 
update is not changed. 

DELETE Deletes a single record, identified by its key* 
from the data set. Use DELETE to delete a record; 
unlike PUTDE, the record cannot have been retrieved 
for update. 



ENDSEQ 



Terminates sequential processing. 
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EXTRACT Provides information about the file (from the File 
Control Block ) . 

DISCONN Disconnects an IACB from an indexed data set* 
thereby releasing any locks held by that IACB; 
writes out all buffers associated with the data 
set; and releases the storage used by the IACB. 



The $IAMUT1 Utility 



The $IAMUT1 utility formats* defines* creates* and writes con- 
trol information to the indexed data set. Indexed Access Meth- 
od requests can be used only on data sets defined either by this 
utility or by the Realtime Programming System Indexed Access 
Method. $IAMUT1 is described in the Utilities* Operator 
Commands* Program Preparation* Messages and Codes manual . ) 



OPERATION OF THE INDEXED ACCESS METHOD 



The Indexed Access Method performs I/O operations by using 
standard data management requests. 

A single copy of the Indexed Access Method load module $IAM 
serves the entire system. It can be loaded automatically at IPL 
time through the automatic initialization capability (refer to 
"Automatic Application Initialization and Restart" on page 
129)* or it can be loaded manually by using the $L operator com- 
mand. However* since the link module loads $IAM automatically* 
$IAM does not need to be loaded before it is used by any pro- 
gram. Once loaded* the Indexed Access Method remains in storage 
until cancelled with the $C operator command. 

$IAM can be loaded into any partition* including partition one. 
It can be invoked (through the link module) from any partition* 
including the partition it is in. Figure 20 on page 149 shows 
an example of a system containing the Indexed Access Method. 



INDEXED DATA SETS - OVERVIEW 



You can organize a collection of data into an indexed data set 
if the data consists of fixed-length records and if each record 
can be uniquely identified by the contents o fa single prede- 
fined field called the key. In an indexed data set* the records 
are arranged in ascending order by key. Reserved space* called 
free space, can be distributed throughout the data set so that 
records can be inserted. 
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Part i t i on 1 



Appl i cat l on 
program 



link 



Control 
blocks and 
buffer pool 



$IAM 



Event 
Dr i ven 
Execut i ve 



Partition 2 



Partition 3 



Appl i cat i on 
program 



link 



App 1 i cat i on 
program 



link 



Appl i cat i on 
program 



link 



Each application program contains a copy of the I AM 
link module* which provides the interface to $IAM. 



Figure 20. Example System Environment 



An indexed data set contains base records* inserted records* a 
multilevel index* and the control information required to use 

the index and free space, 

Indexed access applications are generally of two types: those 
which both read and modify files and those which only read 
files. The former are called update applications while the lat- 
ter are called i ngui ry applications. 

The Indexed Access Method uses two modes to place records into 

an indexed data set: 

1. LOAD mode: records are loaded sequentially in ascending 
order by key* skipping any free space. The records loaded 
are called base records . Each record loaded must have a 
key higher than any key already in the data set. 
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2. PROCESS mode: records are inserted in their proper key 
position relative to records already in the data set. 
Records are inserted using the free space that was skipped 
during loading or, if a record has a new high key, in the 
unused space after the last loaded record. 

The total number of base records that can be loaded is estab- 
lished when the indexed data set is built by the $IAMUT1 utili- 
ty. It is not necessary, however, to load all the base records 
before processing can begin. The data set can be opened for 
loading some of the base records, closed and then reopened for 
processing (including inserts), and later opened for loading 
more base records. Figure 21 illustrates this sequence. 



Step 1. 

Load a portion of < 

the base records 



High key 
after step 1 



Step 3. 
Load more 
base records 

High key 
after step 3 



First record has lowest key 



Step 2. Insert new records 



— — High key 

after step 2 



Last record has highest key 



► Unused space 



Figure 21. Loading and Inserting Records in an Indexed Data Set 
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The total amount of free space for inserts is specified to the 
$IAMUT1 utility when the indexed data set is built. This free 
space is distributed throughout the data set in the form of 
free records within each data b 1*0 ck» 'free blocks within each 
block grouping* and /or in a free pool at the end of the data 
set . 



Data Set Format 



Indexed data sets consist of data blocks which contain records* 
indexes (pointers) to the data blocks* and indexes to the index 
blocks. This technique is called a cascading index structure. 
The first block in the indexed data set, the file control block 
(FCB), describes the attributes of the data set. 



Each data block has the following format: 



HEADER 


Data 


Record 


Data 


Record 


Data 


Record 


Free 


space 



Each index block has the following format 



HEADER 


RBN 


KEY 


RBN 


KEY 


RBN 


KEY 


UNUSED 
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A set of data blocks is addressed (described) by a single index 
block. Each key in the index block is the highest key in the 
data block that its accompanying relative block number (RBN) 
addresses. A block is addressed by its RBN. The primary-level 
index block (PIXB) and the data blocks it describes are called 
a cluster . 



PIXB 



HEADER 


RBN 


H i gh key 
in 1 


RBN 


High key 
in 2 


RBN 


High key 
i n 3 


RBN 


H i gh key 
i n 4 



Data 
blocks 







2 3 

A Sample Cluster 



The records in each data block are in ascending order* accord- 
ing to the key field in each record. 

Each data block header contains the address of the next sequen- 
tial data block* allowing sequential processing. 

Each PIXB (or cluster) has an entry in a second-level index 
block (SIXB) that contains the address of the PIXB and the 
highest key in the cluster. The SIXB has the following struc- 
ture : 
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SIXB 



HEADER 


RBN 


H i gh key 
in PIXB1 


RBN 


H i gh key 
in PIXB2 


RBN 


H i gh key 
in PIXB3 


RBN 


H i gh key 
in PIXB4 



PIXB1 



PIXB2 



PIXB3 



PIXB4 



The SIXBs in the data set are described by an index block in the 
same manner as the PIXB describes each cluster. There is» of 
course* an index block that describes the entire data set. The 
structure of the file is as follows: 



Chapter 8. Overview of the Indexed Access Method 



153 




Highest level 
i ndex po i nts 
to index blocks 



SIXB 



SIXB 



PIXB 



PIXB 



SIXB 



PIXB 



PIXB 



Next 
level 
po i nts 
to 
clusters 



PIXB 



PIXB 



Data Blocks 



Note that only the highest key in any data block is found in a 
PIXB entry* a SIXB entry contains only the highest key found in 
a PIXB* and so on* to the highest index block. This index tech- 
nique is called sparse indexing . 



REQUESTING RECORDS 



When you request a record from your data set* the access method 
uses the index to retrieve the data block that contains the 
record. The index blocks and data blocks are read* using EDL 
READ instructions* into the central buffer. When the requested 
record is found, it is moved to the address you specified and 
control is returned to your program. 
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To minimize accesses to the disk, the buffer management algo- 
rithm tends to keep in the buffer the most frequently refer- 
enced blocks (index or data). 



PREPARING TO EXECUTE INDEXED APPLICATIONS 



The Indexed Access Method consists of the following compo- 
nents : 

• A load module* $IAM, that supports the execution of the 
programs that contain your Indexed Access Method requests. 

• A set of object modules that you may use to generate a cus- 
tomized load module. If you use the supplied load module* 
$IAM, you do not need the object modules. 

The object module* IAM, is called a link module . You 
include IAM with your program to provide the interface to 
the Indexed Access Method. This link module is sometimes 
called a stub . 

• Two copy code modules, IAMEQU and FCBEQU. IAMEQU provides 
symbolic parameter values for constructing CALL parameter 
lists. FCBEQU provides a map of the file control block 
(FCB) . 

• A load module for the Indexed Access Method utility 
SIAMUT1. 



Preparing Programs 

To prepare an application programs that issues Indexed Access 
Method requests, perform the following steps: 

1. Enter the source program, using one of the text editors 
($FSEDIT, $EDIT1, or $EDIT1N) . 

2. Create the $LINK control statements required to combine 
your program with IAM (the link module) and any other 
object modules you may need in your application. These 
statements consist of a single OUTPUT statement, at least 
two INCLUDE statements - one for your program and one for 
IAM (the link module), and a single END statement. Use one 
of the text editors to perform this operation. 

3. Assemble the source program using: 

The EDL compiler, $EDXASM, of the Program Preparation 
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Fac i 1 i ty 



or 



The Series/1 macro assembler* $S1&SM, -in conjunction with 
the Macro L i brary 



or 



The Series/1 macro assembler supplied by the System/370 
Program Preparation Facility in conjunction with the Macro 
L i brary/Host 



4. Use the linkage editor, $LINK, to combine the object mod- 
ules into a single module, using the control statements 

prepared in Step 2. 

5. Use the object program converter, $UPDATE or $UPDATEH, to 
convert your module to a loadable program. 

When the preceding steps are completed, the program is ready to 
be executed . 



Establishing the Data Set 



Use the following steps to prepare the input for 
data set : 



an indexed 



If your data records are 72 bytes or less use one of the 
text editors to enter your data or one of the communi- 
cations utilities to get the data to your system. In 
either case, you must know the record format used by the 
utility. The utilities put two 80-byte records in each 
256-byte EDX record. The first record begins at location 
It and the second record begins at location 129. The 
$IAMUT1 utility assumes unblocked input. $IAMUT1 takes 
only one logical record, the size of which was specified on 
the RECSIZE prompt, from each EDX record. Any record after 
the first logical record in each 256-byte EDX record is 
ignored. If you use the text editors, you must enter data 
on every other line starting with the first line. 

If your records have more than 72 bytes of data, you must 
create a program that accepts the data records and writes 
them to a disk or diskette data set. 



The data must be 
use as the key . 



in ascending order, based upon the field you 
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The process of creating an indexed data set from a sequential 
data set i s : 

1. Invoke SIAMUT1. 

2. Enter an EC command. Respond to the prompt with a Y. This 
will put all further input and output of $IAMUT1 to the 
$SYSPRTR device and your terminal. 

3. Enter an SE command. You will be prompted for the attri- 
butes of your data set. After the prompt/reply sequence 
ends* the utility will display your file attributes in 
numeric form. When you are satisfied with the file's struc- 
ture (you can repeat SE commands* changing selected val- 
ues)* performing steps 4 through 8. 

4. Enter a CR command to invoke $DISKUT1. 

5. Enter a CV command to specify the volume. Then enter an AL 

6. Enter an AL command followed by the data set name* specify 
the space in EDX records, and enter a Y in response to the 
data type prompt. 

7. Enter an EN command to end $DISKUT1 and return to $IAMUT1. 

8. Enter a DF command to map the file. The DF command also 
prompts for the immediate write back option and the data 
set and volume names. 

9. Enter an LO command. Respond to the prompt for input by 
specifying your input data set name and volume. Respond to 
the output prompt by entering the data set name and volume 
specified on the DF command. Your data is then loaded to 
the i ndexed file. 

10. Enter an EN command to end SIAMUTl. Your program can then 
be loaded and may begin to process the data* 
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A SAMPLE SJOBUTIL PROCEDURE AND LINK EDIT CONTROL 



SJOBUTIL Procedure 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X 

x THESE STATEMENTS WILL ASSEMBLE, LINK, AND UPDATE THE 

x APPLICATION. 

x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

JOB ASSEMBLE 

xxx ASSEMBLE USERPROG SOURCE xxx 

LOG SSYSPRTR 

PROGRAM $EDXASM,ASMLIB 

DS USERPROG, EDX002 SOURCE MODULE 

DS ASMWORK,EDX002 ASSEMBLER NORK DATA SET 

DS USEROBJ,EDX002 ASSEMBLER OUTPUT 

PARM LIST $SYSPRTR 

EXEC 

JOB LINKAIAM 

LOG $SYSPRTR 

PROGRAM SLINK, ASMLIB 

DS LINKCTL,EDX002 LINKCTL IS NAME OF 

x LINK-CONTROL DATA SET 

DS LEWORK1,EDX002 LINK WORK DATA SET 

DS LEWORK2,EDX002 LINK WORK DATA SET 

PARM $SYSPRTR 

EXEC 

PROGRAM $UPDATE 

x PUT EXECUTABLE LOAD MODULE INTO DATA SET 'ANYNAME 1 

PARM $SYSPRTR L INKOUT , EDX002 ANYNAME YES 

EXEC 

LABEL END 

EOJ 



Link Edit Control 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

x LINK EDIT CONTROL DATA SET (LINKCTL) 

X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
OUTPUT LINKOUT,EDX002 PUT LINK OUTPUT INTO LINKOUT 
INCLUDE USEROBJ,EDX002 INCLUDE APPLICATION PGM OBJECT 
INCLUDE IAM,ASMLIB INCLUDE INDEXED ACCESS METHOD 
END 
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CHAPTER 9. PLANNING AND DESIGNING INDEXED APPLICATIONS 

This chapter provides information for designing applications 
that use the Indexed Access Method. It contains information 
about** 

• Defining programs 

Interfacing to $IAM 

Maintaining indexed data sets 

Recovery* backup, and reorganization techniques 

Concatenating indexed data sets 

• Error handl i ng 

- How to handle errors 
Error exit facilities 
Resource contention 

• The indexed data set 

How to define records 
How to define the key 
How the data set is structured 

- How the data set is formatted 

Note : The Language Reference contains a detailed description 
of the coding syntax of each Indexed Access Method request. You 
may wish to refer to it while reading the next several pages. 

CONNECTING AND DISCONNECTING THE INDEXED DATA SET 



Prior to using an indexed file, you must issue either a LOAD or 
PROCESS request to connect it to your program. The file must be 
defined in your PROGRAM statement or by a DSCB statement. In 
the latter case use $DISKUT3 or DSOPEN to open the data set pri- 
or to issuing the LOAD or PROCESS. 

A LOAD or PROCESS request builds an indexed access control 
block (IACB) that is associated with an indexed data set. The 
IACB connects a request to the data set. 
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When in load mode* records are placed in the file sequentially. 
Free space is skipped. When in process mode* records are placed 
in the first available slot in the file and free space is used. 

Only one LOAD request can be active for a given data set. Howev- 
er* processing can take place concurrently with loading. No 
LOAD or PROCESS can be successful until the file has been for- 
matted by the $IAMUT1 utility. 

Multiple IACBs can be associated with the same data set. Data 
integrity is maintained by a locking system that allocates 
file* record, or block locks to the requesting IACB. This pre- 
vents concurrent modification of index or data records by other 
requests . 

An IACB can hold only one lock at a time* if your application 
requires concurrent execution of functions that obtain locks 
(direct update or sequential update - see "Processing" on page 
161 for a description of these functions), you must issue mul- 
tiple PROCESSes to build multiple IACBs. 

A DISCONN disconnects an IACB from the data set* releases the 
storage for that IACB, releases locked blocks or records being 
held by that IACB, and writes any blocks that are being held in 
the buffer. The DISCONN request can be issued at any time dur- 
ing loading or processing. 

There is no automatic DISCONN on task termination. Failure to 
disconnect your indexed data sets prior to task term i nat i on may 
prevent resources that were allocated to your task from being 
allocated to other tasks and updated records from being written 
to your data set . 



LOADING BASE RECORDS 



Base records must be loaded in ascending order by key. If you 
are writing your own program to load the file, use a LOAD 
request to load base records. Then issue a PUT for each record. 
When the desired records have been loaded, issue a DISCONN 
request to terminate the load procedure. The only requests that 
can follow a LOAD request are: PUT, EXTRACT, and DISCONN. 

You need not load all base records at one time. A data set that 
already contains records can be reconnected to load more 
records, but the key of each new record must be higher than any 
key already in the data set. 

Also, the limit on base records as specified on the DEFINE com- 
mand of the Indexed Access Method utility program (SIAMUT1) 
cannot be exceeded. If you attempt to load a record after the 
last allocated record area has been filled, an end-of-file con- 
dition occurs. 
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Only one LOAD request can be issued to a data set at any time. 
Other processing requests can be made to a data set that is 
being loaded* but an attempt to retrieve a record from the data 
block being loaded can result in a no-record-found condition. 



PROCESSING 



Initiate general purpose access to an indexed data set with a 
PROCESS request. After the PROCESS request has been issued, any 
of the following functions can be requested: 

• Direct reading - Retrieving a single record independently 
of any previous request. 

• Sequential reading - Retrieving the next logical record 
relative to the previous request. 

• Direct updating - Retrieving a single record for update; 
complete the update by either replacing or deleting the 
record . 

• Sequential updating - Retrieving the next logical record 
for update; complete the update by either replacing or 
deleting the record. 

• Inserting - Placing a single record, in its logical key 
sequence, into the indexed data set. 

• Deleting - Removing a single record from the indexed data 
set. 

• Extracting - Extracting data that describes the data set. 

Note that the update functions require more than one request. 

When a function is complete, another function may be requested, 
except that a sequential function may be followed only by 
another sequential function. You may terminate processing at 
any time by issuing a DISCONN or ENDSEQ request. An end-of- 
data condition also terminates sequential processing. 



Direct Reading 



Use the GET request to read a record using direct access. The 
key parameter is required and must be the address of a field of 
full key length regardless of the key length specification. 
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The record retrieved is the first record in the data set that 
satisfies the search argument defined by the key and key 
relation (krel) parameters. The key field is updated to 
reflect the key contained in the record that satisfied the 
search . 

If the key length is specified as less than the full key length* 
only part of the key field is used for comparison when search- 
ing the data set. For example* the keys in a data set are AAA* 
A A B > ABA* and ABB* the key field contains ABO* and key relation 
is EQ. If key length is zero* the search argument is the full 
key ABO (the default) and a record-not-found code is returned. 
If the key length specification is 2 and the search argument is 
AB* the third record is read. If the key length specification 
is 1 and the search argument is A* the first record is read. 



Direct Updating 



To update a record using direct access: 

1. Retrieve the record Nith a GET request* specifying the key 
and key relation (krel) parameters. 

2. Modify the record in your buffer. Do not change the key 
field in the record. Return the updated record to the data 
set with a PUTUP request. 

You can delete the record with a PUTDE request or leave it 
unchanged by issuing a RELEASE request. 

The key parameter must be specified as the address of a field of 
full key length. The key cannot be modified during the update. 

The only valid requests* other than DISCONN and EXTRACT, that 
can follow GET for direct update are PUTUP, PUTDE, and RELEASE. 

During the update, the subject record is locked (made unavail- 
able) to any other request until the update is complete. Even 
if no action is taken after the GET request is issued* the 
RELEASE request is required to release the lock on the record. 



Sequential Reading 



Use the GETSEQ request to read a record sequentially. After a 
sequential processing request has been initiated* only sequen- 
tial functions can be requested until an end-of-data condition 
occurs or an ENDSEQ request is issued. Processing is termi- 
nated when a DISCONN request is issued or an error or warning is 
returned . 
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To begin sequential access with the first record in a data set* 
set the key address to zero. To start with any other record* 
specify a search argument by specifying the key and key 
relation (krel) parameters. 

If you specify a search argument* the key field is modified to 
reflect the key of the first record found. 

After the first retrieval, a GETSEQ retrieves the next sequen- 
tial record regardless of any key or key relation specifica- 
tion. Therefore, you can use the same GETSEQ statement to read 
all records. A search argument on intermediate retrievals is 
ignored and the key field is not modified. 

Specify ENDSEQ to stop reading before the end of data is 
reached. Reading ends automatically at the end of data. The 
end-of-data condition occurs when an attempt is made to 
retrieve a record after the last record in the data set. 

If you specify the EODEXIT parameter on the PROCESS request, 
control is transferred to the address specified by the EODEXIT 
parameter when the End-of-Data condition occurs. 



Sequential Updating 



To update a record using sequential access, retrieve the record 
with a GETSEQ request, specifying the key and one of the update 
key relation parameters. The key is used only on the first 
retrieval and is not specified if processing is to begin with 
the first record in the data set. Processing is terminated with 
an ENDSEQ or an end-of-data condition. 

The key in the record cannot be modified. The record can be 
returned to the data set with a PUTUP, deleted with a PUTDE, or 
left unchanged by specifying RELEASE. When the update is com- 
plete, the next record can be requested. 

During sequential updating, the block that contains the record 
is locked, making all records in the block unavailable to other 
requesters until the last record of the block is processed or 
an ENDSEQ request is issued. 

Terminate processing with an ENDSEQ request or a DISCONN 
request either before or after completing the update. 
Figure 22 on page 164 summarizes the protocol for sequential 
process i ng . 
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REQUEST/CONDITION 


CAN BE FOLLOWED 


BY: 


GET 


DISCONN 






END-OF-DATA 


CONDITION 




ENDSEQ 






PUTUP 






PUTDE 






RELEASE 




END-OF-DATA CONDITION 


DISCONN 
GET 
PUT 
DELETE 




PUTUP 


DISCONN 

ENDSEQ 

GETSEQ 




PUTDE 


DISCONN 

ENDSEQ 

GETSEQ 




RELEASE 


DISCONN 

ENDSEQ 

GETSEQ 





Figure 2 2. Protocol for Sequential Updating 



Insert i no 



To insert a new record in a data set* issue a PUT request. The 
Indexed Access Method uses the key of the record to insert the 
recordintothedataset. 

The key of the inserted record must be different from any key in 
the data set; otherwise* a duplicate key error occurs. The key 
can be higher than any key in the data set. 

If no free space exists in the area associated with the insert 
or no blocks exist in the free pool, a no-more-space condition 
occurs. The no-more-space condition does not necessarily mean 
the data set is full but it does indicate the need for data set 
reorganization (refer to "Reorganization" on page 166). 
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De let i ng 



Use DELETE to delete a record from the data set. The full key 
of the record must be specified. If no record exists with the 
specified key, an error is indicated. 

Deletion can also be performed as part of updating by following 
a GET for update with a PUTDE request. 



Extract i nq 



The EXTRACT request provides information about a data set from 
the file control block (FCB). This includes information such 
as key length, key displacement, block size, record size, and 
other data regarding the data set structure. 

Execution of the EXTRACT request causes the file control block 
to be copied to an area that you provide. The data set must 
have been connected by a LOAD or PROCESS request. 

The contents of the FCB are described by FCBEQU, a unit of copy 
code that is supplied by the access method. Use COPY FCBEQU to 
include these equates in your program. 



MAINTAINING THE INDEXED DATA SET 



The Indexed Access Method does not provide specific programs to 
perform indexed data set backup and recovery, nor does it 
include services to delete the data set or dump it to the print- 
er. These procedures are provided by a combination of Event 
Driven Executive and Indexed Access Method services as sug- 
gested below. The Indexed Access Method utility SIAMUT1 does 
provide services to help you reorganize your data set as 
described below. 



Backup and Recovery 

To protect against the destruction of data, at regular inter- 
vals you should make a copy of the indexed data set (or the log- 
ical volume in which the data set exists) using the system 
SCOPY utility. During the interval between making copies, you 
should keep a journal file of all transactions made against the 
indexed data set, 
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The journal file can be a consecutive data set containing 
records that describe the type of transaction and the pertinent 
data. A damaged indexed data set can be recovered by updating 
the backup copy from the journal file. 

For example* suppose an indexed data set named REPORT is lost 
because of physical damage to the disk. The condition that 
caused the error has been repaired and the data set must be 
recovered. Delete REPORT* copy the backup version of REPORT to 
the desired volume* and process the journal file to recreate 
the data set . 

If a data-set-shut-down condition exists* IPL again. Then 
issue a PROCESS to the REPORT data set and, using the journal 
file* reprocess the transactions that occurred after the back- 
up copy was made . 



Recovery Without Backup 



If you do not use the backup procedures outlined above and you 
encounter a problem with your data set* you still may be able to 
recreate your file. However* the status of requests that were 
in process at the time of the problem is uncertain. 

To recreate your data set* follow the steps in "Reorganization" 
to reorganize your data set. After recreating the data set* 
verify the status of the requests that were in process at the 
time the problem occurred. 



Reorgan i zat i on 



An indexed data set must be reorganized when a record cannot be 
inserted because of lack of space. The lack-of-space condition 
does not necessarily mean that there is no more space in the 
data set; it means that there is no space in the area where the 
record would have been placed. Therefore* you may be able to 
reorganize without increasing the size of the data set. Perform 
the following steps to reorganize a data set: 

1. Ensure that all outstanding requests against the data set 
have been completed; issue a DISCONN for every current 
IACB. 

2. Use the define command (DF) of the $IAMUT1 utility to 
define a new indexed data set. Estimate the number of base 
records and the amount and mix of free space in order to 
minimize the need for future reorganizations. Refer to 
"The Indexed Data Set" on page 182 for guidelines for mak- 
ing these estimates. 
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3. Use the reorganize command (RO) of the SIAMUT1 utility to 
load the new indexed data set from the indexed data set to 
be reorgan i zed . 

Alternatively* you can use the unload command (UN) of the 
$IAMUT1 utility to transfer the data from an indexed data 
set to a sequential data set* then use the load command 
(LO) to load it back into the indexed data set. 

4. Use system utilities to delete the old data set and rename 
the new data set . 



Dump i ng 



To print records* use the DP command of the $DISKUT2 utility. 
$DISKUT2 produces a hexadecimal dump of the entire data set 
including control information* index blocks* and data blocks. 
Information on the $DISKUT2 utility can be found in the Utili- 
ties? Operator Commands* Program Preparation* Messages and 
Codes . 



De let i ng 



Delete an indexed data set the same way you delete any other 
data set. From a terminal* use the DE command of the $DISKUT1 
utility (refer to Utilities* Operator Commands* Program Prepa- 
ration* Messages and Codes )* or from a program use the $DISKUT3 
data management utility (refer to "Chapter 16. Advanced 
Topics" on page 309). 



CONCATENATING DATA SETS 



The ALTIAM subroutine allows you to concatenate multiple IAM 
data sets and to issue normal IAM commands to the concatenated 
file. This allows you to have more than 32*767 sectors in an 
IAM file or to put parts of a file on different devices to 
improve performance. The data sets may reside on the same or 
different volumes or devices. The keys of all data sets must 
have the same location and length. Each file must be loaded 
individually and have a unique range of keys* with no overlap 
of key ranges between the data sets. 

To incorporate this function in your application* transcribe 
the ALTIAM subroutine using one of the text editors and modify 
it to meet your requirements. Compile it with SEDXASM or the 
Series/1 Macro Assembler and add the object program to your 
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object library. Include the object program when you link edit 
your application programs with the IAM link module. 



Note : The ALTIAM subroutine 
pie Terminal Manager. 



is not compatible with the Multi- 



The ALTIAM subroutine accepts all Indexed Access Method 
requests for single files. A special request* CONCAT, is issued 
to concatenate files. Only one set of files may be concat- 
enated per copy of ALTIAM; when the file is disconnected* 
another set may be concatenated. The parameters to CONCAT are 
as f ol lows : 

CALL ALTIAM, (CONCAT) , IACB, (DSCBTAB), (OPENTAB) , (MODE) 

Equate CONCAT to 14. 

• IACB, OPENTAB, and MODE are the same as in the PROCESS 
request . 

• DSCBTAB is the address of a list of opened data set control 
blocks (DSCBs) with the following format: 

DSCBTAB DATA A(DS1) 

DATA A(DS2) 

DATA A(DS3) 

DATA A(BUFFER) 

The DSCBs must be in order of increasing key ranges of of the 
corresponding files. Three DSCBs is the default but you may 
increase or decrease the number. If only two data sets are 
needed, word three must be zero. The buffer must be large 
enough to hold the largest record in the concatenated file. 

The CONCAT function issues PROCESS requests and reads the low 
key of each file. The default maximum key size (50 bytes) may 
be changed. The address of the IACB that is returned is used by 
ALTIAM to issue processing requests against the concatenated 
f i le. 

The following requests may be made to a concatenated file: 

GET 

GETSEQ 

PUT 

PUTUP 

PUTDE 

DELETE 

EXTRACT 

ENDSEQ 

RELEASE 

DISCONN 
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The parameters for each function are identical to the parame- 
ters for requests to non-concatenated files. 



You may want to modify the 
ALTIAM subroutine: 



following items when using the 



• maximum number of concatenated data sets 

• maximum key length 

• error checking 

To change the maximum number of data sets* change line 2740 so 
that DSCB# is equated to the number of files to be concatenated 
(N). Lines 2630 and 2640 allocate space for IACBs and key save 
areas. Line 2630 allocates N-l words for IACBs. Line 2640 
allocates KS*(N-1) bytes for key save areas, where KS is the 
maximum key size. 

To change the maximum key size, change line 2600 to allocate 
the desired number of bytes (KS) for a key save area. 

The ALTIAM subroutine does not perform the same error checking 
that occurs for non-concatenated data sets. You may want to 
check for the following errors: 



GETSEQ requests in one file that are 
non-sequential requests to another file in 
enated data set . 



f o 1 lowed by 
the concat- 



• PROCESS or LOAD requests being issued against concatenated 
datasets (unpredictable results may occur). 

• GET or GETSEQ requests for update in one file followed by 
non-update requests (e.g. PUT) to another file in the con- 
catenated data set. 

The first error may be checked at line 300. If the sequential 
flag (ASEQ) is set and the request is a GET, DELETE, PUT, or 
EXTRACT, set an error code (10). 



The second error may also be checked at line 300. 
request is PROCESS or LOAD, set an error code (10). 



If the 



..._ _ error may be checked by adding an update flag. The 

flag should be set at lines 1470 and 1530 if an update request 
is made. The flag should be reset at line 1180 for ENDSEQ, 
RELEASE, PUTUP, and PUTDE requests. The flag should also be 
reset at line 1000 in the DISC routine and at line 2440 



The third 



the 

e 



reset at line 1000 in the DISC routine and at line 2440 in the 
ALTERR routine. At line 300 the flag should be checked. If the 
flag indicates a GET, GETSEQ, PUT, DELETE, or EXTRACT request, 
set error ( 10 ) . 



Chapter 9. Planning and Designing Indexed Applications 169 



ALTIAM Subroutine 



00 010 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

00020 xxx 

00030 X ALTIAM IS A SUBROUTINE WHICH ALLOWS THE USER TO CONCATENATE 

00040 X IAM DATA SETS. ALL PARMS AND CALLS ARE THE SAME AS IN IAM. 

00050 X REQUESTS FOR NON-CONCATENATED IAM FILES ARE SIMPLY PASSED THRU 

00060 X TO IAM. TO OPEN A SET OF DATA SETS ISSUE THE CONCAT REQUEST AND 

00070 X PASS A TABLE OF DSCB'S. THE KEYS IN ALL FILES MUST BE IN THE 

00080 X SAME POSITION AND BE THE SAME LENGTH. KEY RANGES CAN NOT OVERLAP. 

00090 X VALID COMMANDS ARE: GET, GETSEQ, DELETE, PUT, PUTUP, PUTDEL, 

00100 x RELEASE, ENDSEQ, EXTRACT, DISCONN, AND CONCAT FOR 

00110 X CONCATENATED FILES. 

00120 XXX 

0130 XXXXXXXXXXXXXXHXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

00140 SPACE 2 

00150 SUBROUT ALTIAM, FUNCTION, IACB, PARM3,PARM4,PARM5 

00160 ENTRY ALTIAM 

00170 MOVE SAVEREGS,#1,2 SAVE USERS REGS 

00180 MOVE IFUNC, FUNCTIONS COPY USERS PARMS TO CALL TO IAM 

00190 IF (FUNCTION, NE,+CONCAT), AND, NOT THE SPECIAL FUNCTION X 

00200 (IACB,NE,+ALTIACB) OR A USE OF CONCAT. IAM DS 

00210 MOVE REGA,IACB SAVE CURRENT IACB VALUE 

00220 MOVEA IIACB,REGB POINT TO SAVE AREA 

00230 CALL CALLIAM JUST PASS THE REQUEST THRU 

00240 MOVE IACB,REGB COPY THE IACB BACK TO THE USER 

00250 GOTO EXIT RETURN TO USER 

00260 ENDIF 

00270 SPACE 5 

0280 XXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

00290 x PROCESS THE SPECIAL CONCATENATED IAM FILE REQUESTS. 

0300 XXXXXXXXXXXKXXXKXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

00310 GOTO (LAST, LAST, LAST, LAST, INS, LAST, DIR,SEQ, DEL, DISC, X 

0320 LAST, LAST, LAST, LAST, CON), FUNCTION 

00330 EJECT 

00340 CON EQU X PROCESS THE CON. OPEN REQUEST 
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00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 



* LOOP THRU USERS TABLE ISSUING IAM PROCESS REQUEST, EXTRACT 

X FCB INFO, SAVE USERS EXIT INFO, AND FIND LOW KEY IN EACH DATA SET. 



MOVE 

MOVE 

MOVE 

MOVEA 

MOVEA 

MOVE 

SPACE ; 

DO 
IF 

MOVE 
MOVE 
CALL 
ADD 
ADD 

ENDDO 

EQU 



ALTIACB,0,(+ALTTSIZE, BYTES) ZERO OUT THE ALT IACB a 



81,PARM3 

BUFF,(BUFFADR,81) 

82,ALTIACB 

IKEY,OPENTAB 

IFUNC+PROCESS 

+DSCB8, TIMES 



GET USERS DSCB TABLE POINTER 
GET POINTER TO USERS BUFFER 
POINT AT ALTERNATE IACB 
POINT AT OUR OPEN TABLE 
SET UP TO DO IAM PROCESS 

LOOP THRU THE USERS DSCB TABLE 



((0,81),EQ,0),GOTO,EXIT1 



IBUFF,C0,81) 

IIACB,82 

CALLIAM 

81,2 

82,+AENTSIZE 



X 

EXIT1 

XX EXTRACT THE FCB INFORMATION 



COPY A DSCB ADDR TO IAM CALL 

POINT AT IACB SAVE ADDRESS 

ISSUE IAM CALL 

POINT AT NEXT DSCB 

ADD ALT IACB ENTRY SIZE 



EXIT FROM DO LOOP 



MOVE 
MOVE 
MOVE 
CALL 
MOVE 
MOVE 
MOVE 



IFUNC+EXTRACT 

IBUFF,BUFF 

IKEY,+10 

CALLIAM 

81, BUFF 

AKP0S,(FCBKEYDP,81) 



SET UP TO DO 
POINT TO OUT 



EXTRACT 
BUFFER 



TRANSFER 10 BYTES OF FCB 
ISSUE IAM CALL 
SET UP FCB DSECT 
SAVE KEY POSITION 



AKSIZE,(FCBKEYLN,81),BYTE GET THE KEY LENGTH 



SHIFTR AKSIZE,8 



MOVE 
MOVE 
MOVE 
MOVE 



81,PARM4 
ASYSRC81 
AERR,(2,81) 
AE0D,(4,81) 



SHIFT IT INTO POSITION 

PICK UP USERS OPEN TABLE 
SAVE SYSRC CELL 
SAVE USERS ERROR EXIT ADDR 
SAVE USERS END OF DATA EXIT 



XX GET THE LOW KEY 

MOVE 

MOVE 

MOVE 

MOVEA 

DO 
IF 

MOVE 
MOVE 
MOVE 
CALL 
MOVE 
CALL 
MOVE 
ADD 

ENDDO 



IN EACH DATA SET 



SET UP DEFAULT 1ST KEY 
POINT AT KEY POSITION 
SET UP LENGTH OF MOVE 
POINT AT SECOND DATA SET 
LOOP THRU DATA SETS 



IKEY,0 

82,AKP0S 

MOVEKEY,AKSIZE 

81,ALTIACB+AENTSIZE 

+DSCB8M1, TIMES 

( ( , 81) , EQ , +0 ) , GOTO , EXIT2 
IFUNC+GETSEQ SET UP FUNCTION 

IIACB,81 POINT AT IACB 

IOPT,+GE SET UP RELATION 

CALLIAM ISSUE IAM GET 

IFUNC+ENDSEQ SET UP END SEQ REQUEST 

CALLIAM ISSUE IAM RELEASE 

(-AMAXKEY,81),C0,82),(l,BYTE),P2=BUFF,P3=MOVEKEY 
81,+AENTSIZE POINT AT NEXT SLOT 
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00870 


X 




00880 


EXIT2 


EQU x 


00890 




MOVE C-AMAXKEY,#1 


00900 




MOVEA IACB,ALTIACB 


00910 


X 




00920 


EXIT 


EQU X 


00930 




MOVE PARM3,0,3 


00940 




MOVE 81,SAVEREGS,2 


00950 




RETURN 


00960 




EJECT 


00970 


DISC 


EQU * 



DO LOOP EXIT 

:+AMAXKEY, BYTES) HIGH FILL 
RETURN ALT IACB POINTER TO USER 

RETURN TO USER 

ZERO OUT LAST THREE PARMS 

RESTORE USERS REGISTERS 



PROCESS ALTERNATE DISCONNECT 
980 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
00990 xx DISCONNECT ALL IAM FILES 

01000 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

RESET SEQENTIAL SWITCH 
ZERO OUT USERS IACB POINTER 
POINT AT IAM IACB TABLE 
DO WHILE THERE ARE IACBS 
,G0T0,EXIT3 IF EMPTY EXIT 
POINT AT AN IACB 
ISSUE IAM REQUEST 
POINT AT NEXT IACB 



RETURN TO USER 



01150 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01160 XX THESE REQUESTS USE THE LAST IACB USED. THEY ARE: ENDSEQ, RELEASE, 

01170 XX EXTRACT, PUTUP, AND PUTDEL. 

0118 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01190 MOVE IIACB,ALSTIACB+2 USER THE LAST IACB 

01200 IF (FUNCTION, EQ,+ENDSEQ) IF ENDING A SEQUENCE 

01210 MOVE ASEQ,0 RESET THE SEQUENTIAL SWITCH 

01220 ENDIF 

01230 CALL CALLIAM ISSUE IAM REQUEST 

01240 GOTO EXIT RETURN TO USER 

01250 EJECT 

01260 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01270 XX THE NEXT SET OF FUNCTIONS USE THE CHECK ROUTINE TO DETERMINE 

01280 XX WHICH IAM FILE TO ISSUE THE REQIJEST TO. THESE FUNCTIONS ARE: 

01290 xx PUT, DELETE, GET, AND THE FIRST GETSEQ. THE USER SUPPLIED KEY 

01300 XX IS CHECKED AGAINST THE VALUE STORED DURING CONCAT. 

01310 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01320 SPACE 2 

01330 INS EQU x 

01340 xx PROCESS INSERT REQUESTS 

01350 MOVE #1,PARM3 POINT AT USERS KEY 

01360 ADD #l,AKPOS ADD IN KEY OFFSET 

01370 MOVE COMPLEN,AKSIZE FULL KEY SUPPLIED 

01380 GOTO CHECK 



01010 




MOVE 


ASEQ,0 


01020 




MOVE 


IACB,0 


01030 




MOVEA 


ttl,ALTIACB 


01040 




DO 


+DSCB8, TIMES 


01050 




IF 


((0,#1),EQ 


01060 




MOVE 


IIACB,#1 


01070 




CALL 


CALLIAM 


01080 




ADD 


#1,+AENTSIZ 


01090 




ENDDO 




01100 


X 






OHIO 


EXIT3 


EQU 


X 


01120 




GOTO 


EXIT 


01130 




SPACE 


5 


01140 


LAST 


EQU 


X 
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01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01851 
01852 
01860 
01870 
01880 
01890 



X 

DEL 

xx 



x 

SEQ 

xx 



xx 

X 

DIR 
xx 



EQU x 
PROCESS DELETE REQUESTS 



MOVE 
MOVE 
GOTO 

EQU 



#1,PARM3 

COMPLEN,AKSIZE 

CHECK 



POINT AT USERS KEY 
FULL KEY SUPPLIED 



PROCESS GET SEQ REQUESTS 

IF (ASEQ,EQ,n, GOTO, LAST IF NOT FIRST IN SEQUENCE 

MOVE ASEQ,1 
PROCESS FIRST SEQUENTIAL AS DIRECT 



SIGNAL SEQUENTIAL MODE 



EQU X 
PROCESS GET REQUESTS 

IF CPARM4,EQ,0) 

MOVEA IIACB,ALTIACB 

GOTO INRANGE 
ENDIF 

MOVE #1,PARM4 
MOVE COMPLEN,(-l,#l),BYTE 
SHIFTR COMPLEN,8 



IF KEY IS NOT SET 
POINT AT FIRST FILE 
SKIP CHECKING 

GET KEY POINTER 
GET KEY LENGTH 
GET INTO POSITION 



x 
CHECK 



EQU x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xx LOOP THRU IACB TABLE COMPRING USERS KEY (#1) TO SAVED KEY IN 
XX THE TABLE. THE SAVED KEY IS THE LOWEST KEY IN THE NEXT FILE. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXX 

MOVEA #2,ALTIACB POINT AT IACB TABLE 

REGA,#1 SAVE USERS KEY ADDRESS 

+DSCB#, TIMES LOOP THRU IACBS 

(CO, #2),EQ,0), GOTO, INRANGE EXIT IF NO MORE 

IIACB,#2 SAVE CURRENT IACB 

82,2 POINT AT SAVED KEY 

COUNT, INITIALIZE STRING COUNTER 



MOVE 
DO 
IF 



MOVE 

ADD 

MOVE 



DO 
IF 
IF 
ADD 
ADD 
ADD 

ENDDO 



WHILE, (COUNT, LE,COMPLEN) LOOP THRU STRING 
C(0,#1),LT,(0, #2), BYTE), GOTO, INRANGE CORRECT IACB 
C(0,#1),GT,(0, #2), BYTE), GOTO, OUTRANGE WRONG IACB 
#1,1 INCREMENT POINTERS 

#2,1 X IF STRINGS ARE EQUAL 

COUNT, 1 



x 

xx 

xx 



IF STRINGS ARE EQUAL THEN THE KEY IS IN THE NEXT FILE, 
WE ARE USING THE LAST FILE ALREADY. 



UNLESS 



ADD 
MOVE 
MOVE 
IF 

MOVE 
ENDIF 
GOTO 



IIACB,+AENTSIZE,RESULT=#2 POINT AT NEXT 
DOUBLE1,0 
D0UBLE2,#2 

CD0UBLE1,LT,+ALSTIACB, DWORD) IF NOT THE LAST IACB 
IIACB,#2 STORE NEW POINTER 



INRANGE 



FOUND THE CORRECT IACB 
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01900 x 

01910 OUTRANGE EQU X 

01920 XX KEY IS NOT IN THIS RANGE. CHECK THE NEXT. 

01930 ADD IIACB, +AENTSIZE,RESULT=#2 BUMP THE IACB POINTER 

01940 MOVE #1,REGA RESTORE THE USER KEY POINTER 

01950 ENDDO 

01960 X 

01970 INRANGE EQU x 

01980 XX KEY IS IN THIS RANGE. ISSUE THE IAM CALL. 

01990 CALL CALLIAM 

02000 x 

02010 IF (REGA,EQ,-53),AND,(PARM5,GT,+UPEQ) NO RECORD FOUND 

02020 ADD IIACB,+AENTSIZE POINT AT NEXT IACB 

02021 MOVE DOUBLE1,0 

02030 MOVE D0UBLE2,IIACB IN A REGISTER 

02031 MOVE #1,D0UBLE2 

02040 IF (D0UBLE1,LT,+ALSTIACB, DWORD), AND, IN RANGE 

02050 ((0,#1),NE,0), GOTO, INRANGE X TRY NEXT FILE 

02060 ENDIF 

02070 GOTO EXIT 

02080 EJECT 

020 90 XXXXXXX***XXXX*XXXXX****XXXXXXXXXXXXXX***************XXXXXXXX**XXXXXX 

02100 xx INVOKE IAM AND SAVE RETURN CODE. 

02110 XXXXXXX*********XXXXXXX*X ********************* ******X****XX***XXXXXXX 

02120 SUBROUT CALLIAM 

02130 MOVE ALSTIACB+2,IIACB UPDATE LAST IACB CELL 

02140 CALL IAM, +PROCESS, IACB, (IACB), (IACB), +EQ,P2=IFUNC, 

02150 P3=IIACB,P4=IBUFF,P5=IKEY,P6=I0PT 

02160 MOVEA TCW, $TCBCO-$TCB#l OFFSET TO TASK CONTROL WORD 

02170 MOVE REGA,81,P2=TCW PICK UP TASK CONTROL WORD 

02180 RETURN 

02190 SPACE 5 

02200 ALTEOD EQU X 

02210 *************************** xx**** ***************** x**xx*********xxxxx 

02220 XX END OF DATA EXIT. IF NOT THE LAST FILE SWITCH TO THE NEXT ONE. 

02230 xx IF THE LAST FILE PASS CONTROL TO USERS EOD EXIT. 

02240 xxxxxxxx*x***xxxxxx*xxxxxxxxxxxxxxx****x***********xxxxxxxxxxxxxxxx*x 

02250 ADD IIACB,+AENTSIZE POINT TO THE NEXT IACB 

02251 MOVE DOUBLE1,0 

02252 MOVE D0UBLE2, IIACB IN A REGISTER 
02260 MOVE #1, IIACB 

02270 IF (D0UBLE1,LT,+ALSTIACB, DWORD), AND, IN RANGE 

02280 CC0,#1),NE,0> 

02290 MOVE IKEY,0 GET FIRST KEY IN NEXT FILE 

02300 GOTO INRANGE ISSUE IAM REQUEST 

02310 ENDIF 

02320 X 

02330 MOVE ASEQ,0 RESET SEQUENTIAL SWITCH 

02340 IF (AEOD,NE,0) IF END OF DATA EXIT EXISTS 

02350 GOTO (AEOD) GO TO IT 

02360 ELSE 

02370 GOTO EXIT 

02380 ENDIF 

02390 SPACE 5 
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02400 


ALTERR 


EQU 


K 


02410 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


02420 


XX ERROR 


EXIT. 


RESET SEQUENTIAL 


02430 


xx ERROR 


EXIT. 




02440 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


02450 




MOVE 


ASEQ,0 


02460 




MOVE 


#1, ASYSRC 


02470 




MOVE 


(0,#1), OPENTAB 


02480 




IF 


(AERR, HE, 0) 


02490 




GOTO (AERR) 


02500 




ELSE 




02510 




GOTO EXIT 


02520 




ENDIF 




02540 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


02550 


xx DATA 


AREAS 




02560 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


02570 


ALTIACB 


EQU 


X 


02580 




DATA 


F'0 f 


02590 


A1KEY 


EQU 


X 


02600 




DATA 


50X'0' 


02610 


AENTSIZE 


EQU 


x-ALTIACB 


02620 


AMAXKEY 


EQU 


X-A1KEY 


02630 




DATA 


2F'0' 


02640 




DATA 


100X'0 f 


02650 


ALSTIACB 


DATA 


D'O 1 


02651 


DOUBLE1 


DATA 


F'O 1 


02652 


D0UBLE2 


DATA 


F'O' 


02660 


AKPOS 


DATA 


F'O' 


02670 


AKSIZE 


DATA 


F'O' 


02680 


ASYSRC 


DATA 


F'O' 


02690 


AERR 


DATA 


F'O' 


02700 


AEOD 


DATA 


F'O' 


02710 


A5EQ 


DATA 


F'O' 


02720 


ALTTSIZE 


EQU 


x-ALTIACB 


02740 


DSCBtt 


EQU 


3 


02750 


X 






02760 


DSCB8M1 


EQU 


DSCB8-1 


02770 


BUFFADR 


EQU 


DSCB8X2 


02780 


CONCAT 


EQU 


14 


02790 


FCBKEYLN 


EQU 


1 


02800 


FCBKEYDP 


EQU 


2 


02810 


COMPLEN 


DATA 


F'O' 


02820 


COUNT 


DATA 


F'O' 


02830 


OPENTAB 


DATA 


F'O 1 


02840 




DATA 


A(ALTERR) 


02850 




DATA 


A(ALTEOD) 


02860 


REGA 


DATA 


F'O' 


02870 


REGB 


DATA 


F'O' 


02880 


SAVEREGS 


DATA 


2F'0' 


02890 




EJECT 




02900 




COPY 


IAMEQU 


02910 




EJECT 




02920 




COPY 


TCBEQU 


02930 




END 





xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
FLAG AND PASS CONTROL TO USERS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

GET USERS RETURN CODE LOCATION 
COPY SYSTEM RETURN CODE 
IF ERROR EXIT EXISTS 
GO TO IT 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
START OF ALTERNATE IACB 
IACB POINTER 

KEY SAVE AREA (MAX LEN=50 BYTES) 

SIZE OF ONE ENTRY 

MAXIMUM KEY SIZE 

EXTRA IACBS 

EXTRA KEY AREAS 

LAST IACB SAVE AREA 

FIRST HALF OF DOUBLE WORD 

KEY POSITION 
KEY LENGTH 
USERS SYSRC CELL 
USERS ERROR EXIT 
USERS END OF DATA EXIT 
SEQUENTIAL MODE SWITCH 

NUMBER OF ENTRIES IN DSCB TABLE 
X PASSED DURING CONCAT FUNCTION 



FCB KEY LENGTH OFFSET 
FCB KEY POSITION OFFSET 
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Sample Program Using ALTIAM 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x x 

x SAMPLE PROGRAM USING ALTIAM SUBROUTINE FOR PROCESSING x 
x CONCATENATED DATA SETS x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 



ALTSAMPL 



START 
xxxxxx 
x OP 
x RE 
xxxxxx 



xxxxxx 
x PE 



WH 
FI 
TH 
TH 
xxxxxx 



xxxxxx 
x PE 

X 
X 
X 



RE 
? 5 
SE 



xxxxxx 



xxxxxx 
x DE 
x SE 
x FI 
xxxxxx 



E 
xxxx 
EN T 
QUES 
xxxx 

C 

xxxx 

RFOR 

OSE 

ELD 

E RE 

E FI 

xxxx 

C 

xxxx 

RFOR 

CORD 

87-1 

COND 

xxxx 

C 

C 

xxxx 

LETE 

QUEN 

LE. 

xxxx 

C 

C 

C 



XTRN 
ROGRA 

QU 

xxxxx 
HE IN 
T PRO 
xxxxx 
ALL A 

xxxxx 

MAD 

KEY I 

WILL 

CORD 

RST D 

xxxxx 

ALL 
xxxxx 
MAS 
S WHO 
134 f . 

DATA 
xxxxx 
ALL 
ALL 
xxxxx 

THE 
TIAL 



ALTI 
M STA 
DS=C( 
x 

xxxxx 
DEXED 
CESSI 
xxxxx 
LTIAM 
(OPEN 
xxxxx 
IRECT 
S GRE 
BE MO 
RETRI 
ATA S 
xxxxx 
ALTIA 
xxxxx 
EQUEN 
SE KE 
THE 

SET. 
xxxxx 
ALTIA 
ALTIA 
xxxxx 
RECOR 
UPDAT 



AM 

RT, 

IAMDS1 

xxxxxxx 
ACCESS 
NG VIA 
xxxxxxx 
, (CONCA 
TAB) , (S 
xxxxxxx 
RETRIE 
ATER TH 
DIFIED 
EVED. 
ET. 

xxxxxxx 
M, (GET) 
xxxxxxx 
TIAL RE 
YS ARE 
SE RECO 

xxxxxxx 
M, (GETS 
M, (GETS 
xxxxxxx 
D WHOSE 
E. THI 



??) , (I AMDS 2, ??) , (I AMDS 3, ???)) 



xxxxxxxxxxxxxxxxx 
ALL IAM,(GETSEQ) 
ALL IAM,(PUTDE), 
ALL IAM,(ENDSEQ) 



xxxx 
MET 
ALTI 
xxxx 
T),I 
HARE 
xxxx 
VAL 
AN f 
TO R 
THIS 

xxxx 
, IAC 
xxxx 
TRIE 
GREA 
RDS 

xxxx 
EQ), 
EQ) , 
xxxx 
KEY 
S KE 

xxxx 
, IAC 
IACB 
,IAC 



xxxx 
HOD 
AM. 
xxxx 
ACB, 
) 

xxxx 
OF T 
332- 
EFLE 
REC 

xxxx 

B, (B 

xxxx 

VAL 

TER 

WILL 

xxxx 
IACB 
IACB 
xxxx 

IS 
Y IS 

xxxx 
B, (B 
, (BU 
B, (B 



xxxxxxxxxxxxxxxxxxxxxxxxx 
DATA SETS FOR x 

X 

xxxxxxxxxxxxxxxxxxxxxxxxx 
(DSCBTAB), X 



xxxxxxx 
HE FIRS 
0000' . 
CT THE 
ORD IS 

xxxxxxx 
UFF), (K 
xxxxxxx 
OF THE 
THAN OR 
BE FOU 

xxxxxxx 
, (BUFF) 
, (BUFF) 
xxxxxxx 
•701-43 
IN THE 

xxxxxxx 
UFF) , (K 
FF) 
UFF) 



xxxxxxxxxxxxxxxxxx 
T RECORD * 

THE KEY x 

KEY OF x 

LOCATED IN x 

x 
xxxxxxxxxxxxxxxxxx 
EY1),(GT) 

xxxxxxxxxxxxxxxxxx 
FIRST TWO x 

EQUAL TO x 
ND IN THE x 

x 
xxxxxxxxxxxxxxxxxx 
, (KEY2) , (GE) 

xxxxxxxxxxxxxxxxxx 

20» BY A x 

THIRD INDEXED x 

x 
xxxxxxxxxxxxxxxxxx 
EY3) , (UPEQ) 

END SEQ PROCESSING 
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* INSERT A NEW RECORD WITH A KEY '370-6543' INTO * 

* FIRST DATA SET. * 

CALL* IAM, (PUT) ,IACB, (N.EWREC) 

GOTO FINISH 
ERROR EQU * 

MOVE RTCODE,ALTSAMPL 

ENQT 

PRINTEXT 'ALTIAM ERROR RT CODE = ',LINE=0 

PRINTNUM RTCODE,TYPE=S,FORMAT=(3,0,I) 

DEQT 
FINISH EQU * 

CALL IAM, (DISCONN) , IACB 

PROGSTOP 

EJECT 

* DATA DEFINITION AND STORAGE AREAS * 

RTCODE DATA F'O' INDEXED ACCESS METHOD RET CODE 

OPENTAB DATA F'O' SYSTEM RETURN CODE ADDRESS 

DATA ACERROR) ADDRESS OF ERROR EXIT ROUTINE 

DATA F'0 T ADDRESS OF END OF DATA ROUTINE 

DSCBTAB DATA ACDS1) 

DATA ACDS2) 

DATA ACDS3) 

BUFF DATA CL80' f 

NEWREC DATA CL80 ' 370-6 543 RECORD FILLER' RECORD TO BE 

* INSERTED 
KEY1 TEXT ' 332-0000' ,LENGTH=28 KEY FROM DS1 
KEY2 TEXT ' 587-1 1 34 ', LENGTH=28 KEY FROM DS2 
KEY3 TEXT ' 70 1-4320 ', LENGTH=28 KEY FROM DS3 
IACB DATA F f 0» ADDR OF IACB PUT HERE 
CONCAT EQU 14 

DSCB DS#=DICDSCB,DSNAME=$$EDXVOL 

COPY IAMEQU 

ENDPROG 

END 



HANDLING ERRORS 

All Indexed Access Method requests return a code in the task 
code word of the Task Control Block (TCB). The task code word 
is the same name as the task name. The return code reflects the 
condition of the requested function. Return codes are grouped 
in the following categories! 

• -1 Successful completion 

• Pos i t i ve - Error 

• Negative - Warning 
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Error Exit Facilities 

There are three types of error exits for your application: 

• Task error exit, provided by the supervisor 

• Error exit* provided by the Indexed Access Method 

• The task error exit of the the Indexed Access Method itself 

Task Error Exit 



You can specify a task error exit routine that will receive 
control if your application program causes a soft exception or 
if a machine check occurs during the execution of your applica- 
tion. 

Since your application may have outstanding pending requests 
(for example* a record is being held for update or a data set is 
being processed sequentially), you should notify the Indexed 
Access Method if you choose to terminate your application. 
Task error exit allows you to release records, disconnect from 
any data set you are connected to, and make your resources 
available to other applications. Use of the task error exit 
facility helps to ensure data integrity and allows proper 
termination or continuation of your application. 

Implementing the task error exit facility is described in 
"Chapter 1 13. Diagnostic Aids and Facilities" on page 265. 



Error Exit 



In PROCESS and LOAD requests, the address of an error exit 
routine can be specified by the ERREXIT parameter. If speci- 
fied, this routine is executed whenever an Indexed Access Meth- 
od request terminates with a positive return code. 

If the exit routine is not specified, the next sequential 
instruction after the request is executed regardless of the 
value of the return code. 



$ IAM Task Error Exit 



The Indexed Access Method itself has a task error exit. If this 
error exit is given control by the supervisor, it writes two 
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messages to the $SYSLOG device: "$IAM HAS INCURRED A SEVERE 
ERROR" and "$IAM CENTRAL BUFFER ADDRESS IS n/xxxx" where n is 
the partition number and xxxx is the address. $IAM then goes 
into a non-recoverable wait and will not process any access 
requests. Use the dump facility to dump the central buffer and 
take appropriate action to quiesce your application. You may 
use the recovery and backup procedures to restore the data set, 
or you can resume execution of your application. To restart 
your application* you can either IPL again or cancel $IAM and 
reload i t . 

If you wish to extend the logic of the error exit, code your own 
exit to replace the $ I A M task error exit. Then rename CDIERR 
(the $IAM task error exit)* name your error exit CDIERR, and 
rebui Id $IAM. 



System Function Return Codes 



If a system function called by an Indexed Access Method request 
terminates with a positive return code, the return code is 
placed in a location named by the SYSRTCD parameter in the 
PROCESS or LOAD request. This location is used until a DISCONN 
i s i ssued . 




The Data-Set-Shut-Down Condition 



Sometimes an I/O error occurs that is not associated with a 
specific request. For example, task A issues a GET on data set 
X, To secure buffer space to satisfy the request, the Indexed 
Access Method attempts to write a block to data set Y and, in 
writing the record, an error occurs. Data set Y is damaged but 
there is no requesting program to accept an error return code. 

The error is indicated by setting the data-set-shut-down con- 
dition for data set Y. After this condition occurs, no 
requests except a DISCONN are accepted for data set Y. 
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Later* if task B issues a GET on data set Y , the request is 
terminated with a data-set-shut-down return code. Task B 
should issue a DISCONN and use recovery and backup procedures 
to reconstruct the data set. An initial program load (IPL) 
cancels the data-set-shut-down condition. 



Deadlocks and the Long-Lock-Time Condition 



Since the Indexed Access Method uses record and block locks to 
preserve file integrity* deadlock and long-lock-time condi- 
t i ons may occur . 

The deadlock condition occurs when two or more tasks interact 
in such a way that one or more resources becomes permanently 
locked* making further progress impossible. A deadlock can 
also occur when two requests from the same task require a lock 
on the same record or a lock on the same block in sequential 
mode . 

A long-lock-time condition occurs when your program acquires a 
record for update and does not return the record to $IAM for a 
long time. 

Application tasks should avoid using the Indexed Access Method 
in such a way that a record or block remains locked for a long 
period of time* since other tasks may attempt to use the same 
record or block. In a terminal oriented system, make every 
effort to ensure that a record or block is not locked during 
operator "think" time. Specifically, you should attempt to 
follow these rules: 

• Do not retrieve a record for update* display the record at 
the terminal* and wait for the operator to modify it. 

• Do not retrieve a record in sequential mode* display the 
record at the terminal, and wait for an operator response. 

In both of these cases* a record or block is locked during oper- 
ator "think" time and could be locked indefinitely. 

A deadlock cannot be broken except by freeing the locks (re- 
cords) that are being waited on. 

If your application uses more than one IACB* deadlocks are pos- 
sible. For example* one task has read record A and attempts to 
read record B* while another task has read record B and 
attempts to read record A. If you are using more than one IACB 
per task* use ENQ/DEQ and inter-program communications to 
avoidthedeadlocks. 
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You can avoid the long-lock-time condition by using the follow- 
ing sequence of operations: 

1. Retrieve the desired record without specifying update. 

2. Perform processing in a work area. 

3. Retrieve the record, specifying update. 

4. Compare the record read in Step 1 with the record read in 
Step 3. 

5. If the records are identical, issue a PUTUP request, speci- 
fying the address of the copy in the work area. If they are 
not identical, issue a RELEASE request for the record read 
in Step 3, and repeat Steps 1 through 5. 

To retrieve records in sequential mode, use the technique 
described in "Resource Contention." 



RESOURCE CONTENTION 

Application programs that use the Indexed Access Method are 
executed the same as other application programs. Because the 
Indexed Access Method and the indexed data sets are resources 
available to all tasks, delays can occur under heavy system 
usage. When more than one task uses the Indexed Access Method, 
contention can occur between tasks for any of the following 
resources : 

An entire indexed file 

An index block in the data set 

A data block in the data set 

A data record in the data set 

Buffer space from the system buffer pool 

or example, during the execution of a request from task A, 
some buffer space is required and an index block, data block, 
or record is locked (made unavailable to other requests). A 
request from task B requires more buffer space than is avail- 
able or attempts to retrieve a block or record that was locked 
by task A. Task B must wait until the required resource becomes 
available. 

Resources required by the Indexed Access Method are allocated 
only for the duration of a request except under the following 
c i rcumstances : 



Chapter 9. Planning and Designing Indexed Applications 181 



• During an update* when control returns to the task after a 
GET or GETSEQ for update* the subject record is locked. The 
lock is released when the update is completed with a PUTUP, 
PUTDE, RELEASE, or DISCONN. 

• During sequential processing* when control returns to the 
task after a GETSEQ, the block containing the subject 
record is locked and held in the buffer. 

Subsequent GETSEQ requests pick up records directly from 
the buffer. When a GET requires a record from the next 
block, the current block and buffer are released. Pending 
requests for a buffer area are satisfied and the next block 
is locked and held in the buffer. Except for momentary 
release of the buffer area between blocks, a block is 
locked while it is being processed. Processing is termi- 
nated by an end-of-data condition, an ENDSEQ request, or a 
DISCONN request . 

The update should be completed promptly. Use the following 
guidelines to avoid resource contention: 

• Disconnect all indexed data sets before task termination. 
The DISCONN request releases locked records or blocks and 
writes records that have not already been written. 

• With multiple Indexed Access Method applications, use 
direct access to retrieve a group of records. A suggested 
method is the following: 

1. Retrieve the first record by key. 

2. Extract the key from the record and save it for the 
next retr i e val . 

3. Retrieve the next record using the saved key and a 
greater than key relational operator (GT or UPGT). 

4. Repeat the second and third steps until processing is 
complete . 



THE INDEXED DATA SET 



Preparing the Data 



The following sections describe how you can design an indexed 
data set that uses space efficiently and provides optimum per- 
formance. 
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Def i n i ng the Key 



Define a single key field by specifying its size and position 
in the record when the data set is built by the define command 
of the $IAMUT1 utility. The longer the key, the larger the 
index. The key should not be longer than necessary but long 
enough to ensure uniqueness. 

Ensuring Uniqueness of the Key. To identify each record in an 
indexed data set, each key must be unique. If key duplication 
is possible, the key field must be expanded. 

For example, customer name is a key which may involve dupli- 
cates. To avoid duplication, lengthen the key field to include 
other characters such as part of the customer address or the 
account number. Since the characters in the key must be con- 
tiguous, you may need to rearrange the fields in the record. 

Another way to eliminate duplication is to modify new records 
dynamically whenever a duplication occurs during loading or 
processing. One or more characters at the end of the key field 
can be reserved for a suffix code. Nhenever a duplicate occurs, 
add a value to the suffix and make another attempt to add the 
record to the data set. The result is a data set that can con- 
tain a sequence of keys such as Smith, Smithl, and Smith2. If 
you add a suffix, you must use the entire unique key to access a 
record . 

Providing Access by More Than One Key. To provide good perform- 
ance with both direct and sequential access, each indexed data 
set is indexed by a single key. At times, however, it may be 
useful to locate records by a secondary key. For example, in a 
customer file indexed by account number, you might want to 
locate a record by customer name. 

One way of providing access by a secondary key is to build a 
second indexed data set composed of short records that contain 
only the secondary and primary keys. Using the secondary key to 
access this data set, the associated primary key can be deter- 
mined. The primary key can then be used to locate the desired 
record in the first data set. 

Where there are multiple keys to a data set, ensure high per- 
formance by selecting as the primary key the one that is used 
most often or the one with which you plan to do sequential proc- 
essing. 



Selecting the Block Size 



Records can be blocked in an indexed data set. The block size 
must be a multiple of 256. Blocking reduces I/O activity and 
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allows for free space to be interspersed among base records to 
provide for inserts. The three kinds of free space are: free 
record(s) in a data block* free block(s) at the end of each 
block grouping* and free cluster(s) at the end of the data set. 

Specify record size and block size when building the data set 
by the setparms (SE) command of the $IAMUT1 utility. Each block 
has a 16-byte header. Therefore* the number of records per 
block i s : 

(block size - 16) 
record s i ze 

The result is truncated; that is* any remainder is dropped. A 
remainder represents the number of unused bytes in the block. 
Selection of a block size is largely dependent on record size* 
but the block size must be a multiple of 256. Other factors to 
consider are insert activity and buffer space. 

Insert Activity. Each block contains allocated record areas 
into which base records are loaded and free record areas into 
which records can be inserted. The ratio of allocated records 
to free records in a block should be the ratio of estimated base 
records to estimated inserts in the data set. Ideally* block 
size should be large enough to accommodate enough records to 
approximate this ratio. 

Buffer Space. A large block size minimizes read/write activity 
but requires more buffer space. Some processing requires a 
buffer large enough for two blocks. 

Examples. A data set consists of 1000 base records with an 
estimate of 500 records to be inserted and a record size of 70 
bytes. Select a block size and a number of free records per 
block to build an indexed data set. 

1. Selecting a block size of 256 with 1 free record per block 
implies (256-16)/70 = 3 records per block* with a remainder 
of 30 bytes. The ratio of 2 allocated records and 1 free 
record accurately reflects the insert activity. Buffer 
size is minimized. Some space is wasted on the disk (30 
bytes per block). Designing 80-byte records and 256-byte 
blocks for this data set effectively uses these 30 bytes. 

2. Selecting a block size of 512 with 2 free records per block 
implies (512-16)/70 = 7 records per block, with a remainder 
of 6 bytes. The ratio of 5 allocated records to 2 free 
records underestimates the insert activity. The larger 
block size requires a larger buffer but increases I/O effi- 
ciency. Fewer bytes are wasted on the disk (6 bytes in 2 
sectors ) . 



184 SC34-0312 



Estimating Free Space 



Specify free space for inserts using the setpartns (SE) command 
of the SIAMUT1 uti lity. 

Estimating free space exactly is not necessary. Experience can 
be your best guide; if the need for file reorganization is sig- 
nalled Cno space for an insert) before a major portion of the 
free space is utilized* you know you must adjust the mix of free 
records and free blocks* reserve blocks* and reserve index 
blocks . 

As a general approach* estimate not only the number of inserts 
but also their distribution throughout the data set. For exam- 
ple, consider a data set with 5 records per block* and 10 data 
blocks per cluster. Suppose that the data set consists of 300 
base records and 200 inserts. 

If the inserts are distributed evenly throughout the data set, 
the pattern of inserts is: 



Blocks 
Inserts 



(the bullet indicates an inserted record) 



With this kind of distribution you can specify 2 free records 
per block to absorb the inserts; no free blocks are needed. 

Of course inserts do not usually occur in such an even pattern. 
Free blocks help to absorb a concentration of inserts. The more 
uneven the expected distribution, the greater the free block 
specification should be. 

Suppose the same number of inserts is distributed in this pat- 
tern.* 



Blocks 
Inserts 



• • • • • 



With this distribution you must specify either 3 free records 
per block, or 20% free blocks with 2 free records per block. 

Now suppose the distribution were more uneven: 
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Blocks 
Inserts 



• • • • 

• • • • 

• • • • 

• • • 



In this case a satisfactory mix of free space is 1 free record 
per block and 40% free blocks. 

Note i The next several paragraphs will be clearer if you refer 
to the definitions in "Data Set Format" on page 192. 

If the anticipated insert activity is confined to afew clus- 
ters only, use a free pool . A free pool is a group of blocks at 
the end of an indexed data set that are available whenever they 
are needed. However, in order to use blocks from the free pool, 
the data set must be structured so that they can be logically 
connected where they are needed. This structure is specified 
with the RSVBLK and RSVIX parameters of the define (DF) command 
of the $IAMUT1 uti lity. 

Use the RSVBLK parameter to indicate the percentage by which a 
cluster can grow. If you code the RSVBLK parameter, $IAMUT1 
leaves reserve entries in the primary-level index blocks 
(PIXBs). These reserve entries can be used to point to the data 
blocks taken from the free pool. 

Use the RSVIX parameter to indicate the percentage by which a 
cluster grouping can grow. If you code the RSVIX parameter, 
$IAMUT1 leaves reserve entries in the second-level index 
blocks (SIXBs). The reserve entries can be used to point to a 
PIXB taken from the free pool. The new PIXB can grow into a 
full-sized cluster as data blocks are taken from the free pool 
and added to this new cluster. 

To illustrate the advantage of a free pool, assume that a data 
set contains 50 clusters of 10 data blocks each and that 40% of 
the blocks in the cluster are free blocks. There are 200 free 
blocks in the data set. If most of the inserts into the data 
set will fall into a relatively small key range and do not 
normally require more than 50 blocks, 150 blocks are saved by 
specifying no free blocks and a 40% RSVBLK. 

A 25% FPOOL parameter provides the 50 blocks in the free pool to 
be used when inserts are required. The result is that the data 
set still accepts all the anticipated inserts and 150 blocks 
are saved . 

If insert activity into the data set is anticipated to be rela- 
tively even, the best response time is achieved by reserving 
free records and free blocks for inserts. 
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If insert activity is to be primarily into one or more areas or 
key ranges* however* the space for inserts should be reserved 
as reserve blocks and/or reserve indexes. This results in the 
most efficient use of space in the data set. 

The space for inserts can be divided between free records* free 
blocks* reserve blocks, and reserve indexes to suit your 
requirements. 

To determine how many blocks are required for an indexed data 
set with a given combination of free records, free blocks, 
reserve blocks, reserve index blocks, and free pool size, use 
the SE command of the $IAMUT1 utility. 



Building The Indexed Data Set 



The SE and DF commands of the $IAMUT1 utility allow you to spec- 
ify the size and format of your indexed data set and to format 
the data set. Use the SE command to enter those values that 
determine the size of the indexed data set and to receive a dis- 
play of the size calculation information. Use the DF command to 
format the data set, using the values previously specified on 
the SE command . 



Determining Size and Format 



The structure of the data set is determined by the following 
parameters of the SE command: 



BASEREC - Estimated number of base records 

BLKSIZE - Block size 

RECSIZE - Record size 

KEYSIZE - Key si ze 

KEYPOS - Key position 

FREEREC - Number of free records per block 

FREEBLK - Percentage of free blocks 

RSVBLK - Percentage of reserved data blocks 

RSVIX - Percentage of reserved primary index blocks 

FPOOL - Percentage of free pool 
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• DELTHR - Percentage delete threshold 

The define (DF) command fixes the size of the data set. There- 
fore, BASEREC, FREEREC, FREEBLK, RSVBLK, RSVIX, and FPOOL 
should be large enough to accommodate the maximum number of 
records planned for the data set. To calculate the size of the 
data set for a given combination of the define parameters, use 
the SE command . 

The DF command allows you to select the immediate write-back 
option. If you select this option, modified records are writ- 
ten to the file immediately; this contributes to the integrity 
of the file; however, response time increases. 



Defining and Creating the Indexed Data Set 



The setparms(SE) command allows you to review the size calcu- 
lation information without actually formatting the data set. 
SIAMUTl returns to your terminal the size of the data set and 
other information. The calculations performed by the SE func- 
tion are described in" Data Set Format" on page 192. 




space and using the SE command, you can vary the define parame- 
ters to design a data set that fits. 



If the specified data set does not exist, a connect error 
occurs and $IAMUT1 gives the option to retry. If you retry, the 
utility prompts for the volume and data set names, and the 
function is attempted again. 



Using the $IAMUT1 Utility - An Example 



A data set is to accommodate 10,000 base records with a record 
size of 70 bytes. An estimated 5,000 records are to be 
i nserted . 

Selecting a block size of 256 allows three records per block 
(( 256-16 )/70 ) ) with a remainder of 30 bytes. If the data set 
were created with one free record per block, the ratio of two 
base records to one free record would accurately reflect the 
insert activity. Buffer size is minimized. Some space (30 
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bytes per block) is wasted. 



Selecting a block size of 512 allows seven records per block 
C(512-16)/70) with a remainder of six bytes. If the data set 
were created with two free records per block* the ratio of five 
base records to two free records would overestimate the insert 
activity. The larger block size requires a larger buffer but 
increases I/O efficiency. In addition* fewer bytes are wasted 
(six bytes ) . 

Assume that the user has entered the DF subcommand to allocate 
the file using the specifications shown in Example 2. Name the 
file IDATA and placed it on EDX002. 

Examp le 1 

ENTER COMMAND (?): SE 



ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 



BASEREC 

BLKSIZE 

REC5IZE 

KEYSIZE 

KEYPOS 

FREEREC 

FREEBLK 

RSVBLK 

RSVIX 

FPOOL 

DELTHR 



10000 

256 

70 

10 

1 

1 













TOTAL 
FULL R 
INDEX 
TOTAL 
FREE E 
RESERV 
FULL E 
RESERV 
FULL E 
DELETE 
INITIA 
FREE P 

# OF 

# OF 

# OF 

# OF 



LOGICAL RECORDS/DATA BLOCK 

ECORDS/DATA BLOCK: 

ENTRY SIZE: 

ENTRIES/INDEX BLOCK: 

NTRIES/PIXB: 

E ENTRIES/PIXBCBLOCKS) : 

NTRIES/PIXB: 

E ENTRIES/SIXB: 

NTRIES/SIXB: 

THRESHOLD ENTRIES: 
L ALLOCATED DATA BLOCKS: 
OOL SIZE IN BLOCKS: 
NDEX BLOCKS AT LEVEL 1: 
NDEX BLOCKS AT LEVEL 2: 
NDEX BLOCKS AT LEVEL 3: 
NDEX BLOCKS AT LEVEL 4: 



3 
2 

14 
17 




17 


17 

1 
5000 



295 

18 

2 

1 



DATA SET SIZE IN EDX RECORDS: 
INDEXED ACCESS METHOD RETURN CODE 
SYSTEM RETURN CODE: 



5317 
-1 
-1 
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Example 2 

ENTER COMMAND (?): SE 

ENTER BASEREC 

ENTER BLKSIZE 512 

ENTER RECSIZE 

ENTER KEYSIZE 

ENTER KEYPOS 

ENTER FREEREC 2 

ENTER FREEBLK 

ENTER RSVBLK 

ENTER RSVIX 

ENTER FPOOL 

ENTER DELTHR 

TOTAL LOGICAL RECORDS/DATA BLOCK: 7 

FULL RECORDS/DATA BLOCK: 5 

INDEX ENTRY SIZE: 14 

TOTAL ENTRIES/INDEX BLOCK: 35 

FREE ENTRIES/PIXB: 

RESERVE ENTRIES/PIXBCBLOCKS) : 

FULL ENTRIES/PIXB: 35 

RESERVE ENTRIES/SIXB: 

FULL ENTRIES/SIXB: 35 

DELETE THRESHOLD ENTRIES: 1 

INITIAL ALLOCATED DATA BLOCKS: 2000 

FREE POOL SIZE IN BLOCKS: 

# OF INDEX BLOCKS AT LEVEL 1: 58 

# OF INDEX BLOCKS AT LEVEL 2: 2 

# OF INDEX BLOCKS AT LEVEL 3: 1 

DATA SET SIZE IN EDX RECORDS: 4124 

INDEXED ACCESS METHOD RETURN CODE: -1 

SYSTEM RETURN CODE: -1 



Note: Respond to the prompts 

with the values you wish to change. 
The utility reuses the values from 
previous execution. 
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Example 3 

ENTER COMMAND (?): DF 

DO YOU WANT IMMEDIATE WRITE-BACK? N 

ENTER (NA*ME, VOLUME) : IDATA ,.EDX002 



TOTAL LOGICAL RECORDS/DATA BLOCK 

FULL RECORDS/DATA BLOCK: 

INDEX ENTRY SIZE: 

TOTAL ENTRIES/INDEX BLOCK: 

FREE ENTRIES/PIXB: 

RESERVE ENTRIES/PIXBCBLOCKS) : 

FULL ENTRIES/PIXB: 

RESERVE ENTRIES/SIXB: 

FULL ENTRIES/SIXB: 

DELETE THRESHOLD ENTRIES: 

INITIAL ALLOCATED DATA BLOCKS: 

FREE POOL SIZE IN BLOCKS: 

# OF INDEX BLOCKS AT LEVEL l: 

# OF INDEX BLOCKS AT LEVEL 2: 

# OF INDEX BLOCKS AT LEVEL 3: 



7 
5 

14 

35 



35 


35 

1 

2000 



58 
2 
1 



DATA SET SIZE IN EDX RECORDS: 
INDEXED ACCESS METHOD RETURN CODE 
SYSTEM RETURN CODE: 



4124 
-1 
-1 



ENTER COMMAND (?) : EN 
SIAMUT1 ENDED AT 00:38:47 



The key differences between Example 1 and Example 2 are: 

• Fewer records (256-byte blocks) are required for Example 
2. 

• The index in Example 2 is a three-level index, while in 
Example 1 it is a four-level index. This eliminates one 
disk access* improving performance slightly. 

• Each data block has two free records in Example 2. In exam- 
ple 1 each data block has one free record. 
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Data Set Format 

The define command of the $IAMUT1 utility formats and creates 
an indexed data set. 

Use the DF command to format the data set. You are prompted for 
the volume and data set names and the immediate write-back 
option. (Note: the data set must have been previously created 
using the CR command of the SIAMUTl utility or the AL command of 
the $DISKUT1 utility.) The data set is connected and then for- 
matted by the define function. If the data set does not contain 
sufficient space to support the specified format, $ I A M U T 1 
returns the amount of space required. Knowing the available 
space and using the SE The information required to establish 
the format and the number of blocks in a data set is provided by 
ten parameters of the SE command. 

Parameter Def i n i t i on 

BASEREC Number of base records 

BLKSIZE Block size 

RECSIZE Record s i ze 

KEYSIZE Key si ze 

KEYPOS Key position 

FREEREC Number of free records per block 

FREEBLK Percentage of free blocks 

RSVBLK Percentage of reserved blocks 

RSVIX Percentage of reserved index 

FPOOL Percentage of free pool 

DELTHR Percentage of blocks to retain when deleting 

records 



Blocks 



The indexed data set is composed of a number of fixed length 
blocks. The block is the unit of data transferred by the 
Indexed Access Method. Block size must be a multiple of 256. A 
block is addressed by its relative block number (RBN). The 
first block in the data set is located at RBN 0. 



192 SC34-0312 



Note that the RBN is used only in indexed data sets by the 
Indexed Access Method. An Indexed Access Method block differs 
from an Event Driven Executive record in the following ways: 

1. The size of a block is not limited to 256 bytes; its length 
can be a multiple of 256. 

2. The RBN of the first block in an indexed data set is 0. The 
record number of the first Event Driven Executive record in 
a data set is 1. 

The size* in 256-byte records* of the data set is calculated by 
the define command of the $IAMUT1 utility. 

Three kinds of blocks exist in an indexed data set: a file con- 
trol block (FCB)* index blocks? and data blocks. These blocks 
are all the same length* as defined by BLKSIZE* but they con- 
tain different kinds of information. The FCB contains control 
information, index blocks contain index entries* and data 
blocks contain data records. The control information is also 
contained in block headers; a description of control informa- 
tion is contained in Internal Design . Figure 23 also shows 
examples of the three block types. 



Contro 1 
information 



Unused 



Header 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


Unused 



Header 



Data 
record 



Data 
record 



Data 
record 



File control block 



Index b lock 



Data b lock 



Figure 23. Indexed Data Set Block Types 
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The File Control Block 



The file control block (FCB) is the first block in the data set 
(RBN 0)J it contains control information. The field names in 
the FCB can be seen by examining a listing of FCBEQU, a copy 
code module that is supplied as part of the Indexed Access 
Method. 



Index Block 



An index block contains a header followed by a number of index 
entries. Each index entry consists of a key and a pointer. The 
key is the highest key associated with a block; the pointer is 
the RBN of that block. The number of entries contained in each 
index block depends on block size and key size. The header of 
the block is 16 bytes. The RBN field in each entry is A bytes. 
The key field in each entry must be an even number of bytes in 
length; if the key field is an odd number of bytes in length* 
the field is padded with one byte to make it even. The number 
of index entries in an index block is*. 

block size - 16 

4 + key length 

The result is truncated; any remainder represents the number of 
unused bytes in the block. For example* if block size is 256 and 
key length is 28, then each index entry is 32 bytes, there are 7 
entries in a block* and the last 16 bytes of the block are 
unused . 



Data Block 



A data block contains a header followed by a minimum of two 
records. The number of records that can be contained in a data 
block depends on the size of the data block and the size of the 
record. The header of the block is 16 bytes. The number of 
record areas in the block is: 

b lock size - 16 

record size 

The result is truncated; any remainder represents the number of 
unused bytes in the block. For example, if block size is 256 and 
record size is 80, the data block can accommodate three records 
and there is no unused area. The key field of the last record 
slot in an index block is the high key for the data block. If 
some records of the data block are not currently used, the key 
field of the last record slot is the same as the key field of 
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the last used record in the block. However* if the last record 
of the block has been deleted, the key field of the last record 
slot will contain a key higher than that of any other record in 
the block. Deletion of a record does not reduce the key range 
for the block . 



The Index 



The index of an indexed data set is constructed in several lev- 
els so that, given a key, there is a single path (one index 
block per level) cascading through the index levels that leads 
to the data block associated with that key. The index is built 
from the bottom up. At the lowest level are the primary-level 
index blocks. At the second level are index blocks containing 
entries that point to the primary-level index blocks. There are 
enough levels so that the highest level consists of a single 
i ndex block . 



Primary-Level Index Blocks 

Entries in a primary-level index block point to data blocks. 
Each entry in a primary-level index block is one of three pos- 
sible types : 

• An allocated entry points to an active data block. The key 
portion of the entry is initialized to binary ones by the 
$IAMUT1 utility. After records have been loaded or written 
to a data block, the key portion of the entry which points 
to the data block contains the highest key from the data 
block . 

The pointer portion contains the RBN of the data block. 
Allocated entries are the first entries in an index block. 
The number of index entries allocated when the indexed data 
set is loaded is the total number of entries per index 
block, less the number of entries of the other two types 
(free block entry and reserve block entry). (Refer to 
Figure 24 on page 196 for an example of a primary-level 
i ndex block . ) 

• A free block entry points to a free data block. The key 
portion of the entry contains binary zeros. The pointer 
portion contains the RBN of the free block. Free block 
entries follow the allocated entries in the index block. 
The number of index entries formatted as free entries when 
the indexed data set is loaded is the specified percentage 
(FREEBLK) of the total number of entries, with the result 
rounded up if there is a remainder. 
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Header 


■> RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 





o 





Unused 



> Allocated entries 



Free block entry 
Reserve block entry 



Figure 24. Example of Primary-Level Index Block 



• A reserve block entry does not point to a block but is 
reserved for later use as a pointer to a data block which 
can be taken from the free pool. Both the key and pointer 
portions of a reserve block entry are binary zeros. Reserve 
block entries are at the end of the index block. When a 
reserve block entry is converted to a used entry* the index 
block is reformatted to move the entry to the allocated 
entry area of the block. 

The number of index entries. initially formatted as reserve 
block entries is the specified percentage (RSVBLK). of the 
total number of entries* with the result rounded up if 
there is a remainder. However* if the number of free block 
entries plus the number of reserve block entries require 
all index entries* the number of reserve block entries is 
reduced by 1* providing at least one allocated entry per 
index block. 

To calculate the number of primary-level index blocks in an 
indexed data set> you must know the initial number of data 
blocks allocated in the indexed data set. The initial number of 
data blocks is the specified number of base records (BASEREC) 
divided by the number of allocated records in a data block* 
with the result rounded up if there is a remainder. The number 
of primary-level index blocks is the initial number of allo- 
cated data blocks divided by the number of allocated entries 
per primary-level index block* with the result rounded up if up 
ifthereisaremainder. 
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Second-Level Index Block 



Entries in a second-level index block point to primary-level 
index blocks. Each entry in a second-level index block is one 
of two possible types: 

• An allocated entry points to an existing primary-level 
index block. The key portion of the entry is initialized 
to binary ones by the OIAMUTl utility. After records have 
been loaded or written* the key portion of the entry con- 
tains the highest key from the primary-level index block. 
The pointer portion contains the RBN of the primary-level 
index block. Allocated entries are the first entries in 
the index block. The number of index entries allocated 
when the indexed data set is loaded is calculated as the 
total number of entries per index block, less the number of 
reserve index entries. 

• A reserve index entry does not point to a block but is 
reserved for later use as a pointer to a primary-level 
index block that can be taken from the free pool. Both the 
key and pointer portions of a reserve index entry are bina- 
ry zeros. Reserve index entries are at the end of the index 
block. The number of index entries initially formatted as 
reserve index entries is the specified percentage (RSVIX) 
of the total number of entries, with the result rounded up 
if there is a remainder. However, if the number of reserve 
index entries is the same as the total number of entries in 
an index block, the number of reserve index entries is 
reduced by 1, providing at least one allocated entry per 
second-level index block. 

The number of second-level index blocks is the number of 
primary-level index blocks divided by the number of allocated 
entries per second-level index block, with the result rounded 
up if there is a remainder. (Refer to Figure 25 on page 198 for 
an example of a second-level index block.) 



Higher-Level Index Block 



Entries in a higher-level index block point to index blocks at 
the next lower level. All entries in higher-level index blocks 
are allocated entries. The key portion of the entry contains 
the highest key from the index block of the next lower level. 
The pointer portion contains the RBN of the next lower level 
index block. The number of blocks at any higher index level is 
the number of index blocks at the next lower level divided by 
the total number of entries per index block, with the result 
rounded up if there is a remainder. (Refer to Figure 26 on page 
199 for an example of a higher-level index block.) 
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RBN 
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Unused 



> Allocated entries 



Reserve index entry 



Figure 25. Example of Second-Level Index Block 



If the number of index blocks at any level is one* that level is 
the top level of the index. Although the Indexed Access Method 
is capable of supporting 17 levels of index* an indexed data 
set is formatted with only as many index levels as are required 
for the number of records. If an indexed data set has not been 
fully loaded and one or more higher index levels have not yet 
been required* the unnecessary higher levels are not used* even 
though they exist in the file structure. 



Index Example 



Assume that 500 data blocks are allocated to a data set and that 
each primary-level index block contains one free block entry* 
one reserve block entry* and five allocated entries. There- 
fore* the total number of primary-level index blocks is 100. 
Each second-level index block contains one reserve index entry 
and six allocated entries* therefore* the number of 
second-level index blocks is 17. The number of entries in 
higher level index blocks is seven* resulting in three index 
blocks at the third level and one at the fourth level. 

Therefore the data set contains a total of 121 index blocks of 
which 100 are primary-level index blocks* 17 are second-level 
index blocks* 3 are third-level index blocks* and 1 is a 
fourth-level index block. This distinction is important 
because* as shown later in this chapter, high-level index 
blocks are located contiguously at the beginning of the data 
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Figure 26. Example of Higher-Level Index Block 



set (after the FCB)> while primary-level index blocks are scat- 
tered throughout the file with the data blocks. Figure 2 7 shows 
the structure of the higher-level index blocks. 



Fourth 
(top) 
level 
i ndex 



Third 
level 
i ndex 



Second 
level 
i ndex 



Figure 27. High-Level Index Block Structure 
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CI uster 



Primary-level index blocks and data blocks are stored together 
in the data set in groups called clusters . Each cluster con- 
sists of a primary-level index block and as many data blocks as 
are allocated or free entries in the index block. For example, 
if there are seven entries in an index block, there are eight 
blocks in a cluster: one primary- level index block and up to 7 
data blocks. If reserve blocks have been specified, the blocks 
represented by the reserve block entries are not included until 
insert activity has taken place and the required blocks have 
been obtained from the free pool. For example, if there are 
seven entries in an index block and one of the entries is a 
reserve block entry, the cluster consists of seven blocks (one 
index block and six data blocks). 



Free Space 



When an indexed data set is loaded with data records, free 
space is reserved for records that may be inserted during proc- 
essing. There are four kinds of free space: free records, free 
blocks, reserve blocks, and reserve index entries. 

Free Records: Free records are areas reserved at the end of 
each data block. The FREEREC parameter of define command of the 
SIAMUTl utility specifies the number of free records that are 
reserved in each data block. The remaining record areas are 
called allocated records. 

For example, if a block contains three data record areas and 
you specify one free record per block, then there are two allo- 
cated records per block. Refer to Figure 28 on page 201. 

When records are loaded, the allocated records are filled, and 
the free records are skipped. During processing, a record can 
be inserted in a block that contains a free record. 

Free Blocks: Free blocks follow the allocated data blocks with- 
in each cluster. For example, if the cluster contains six data 
blocks and you specify 10 as the percentage of free blocks, 
then there are five allocated blocks and one free block in each 
c 1 uster . 
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Figure 28. Example of a data block 



Pr i ma ry— level 


i ndex b lock 


Al located 


data 


b lock 


Al located 


data 


b lock 


Allocated 


data 


block 


Al located 


data 


b lock 


Al located 


data 


b lock 


Free data 


bloc 


k 



When records are loaded* the allocated record areas in the 
allocated data blocks are filled, and the free blocks are 
skipped. During processing, as data blocks become full, a free 
block provides space for insertions. 

Reserve Blocks: Reserve blocks do not exist in the cluster. 
When all data blocks in a cluster are used and another data 
block is needed, a data block can be created from the free pool, 
if the primary-level index block contains a reserve block 
entry. The reserve block entry in the primary-level index block 
points to the block, and the data block becomes an allocated 
data block . 
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Reserve Index Entries: Reserve index entries in second-level 
index blocks allow the index structure to be expanded by adding 
new primary-level index blocks . These , in turn* can have data 
blocks associated with them* thus forming new clusters. This 
process of forming a new cluster is sometimes called a c 1 uster 
split . 



Calculating Allocated Data Blocks* Clusters? and Free Blocks 

The number of allocated data blocks in a data set is the speci- 
fied number of base records (BASEREC) divided by the number of 
allocated records per data block, with the result rounded up if 
there is a remainder. 

For example* suppose you intend to load 1000 records in an 
indexed data set that is formatted for two allocated records 
and one free record per block and five allocated blocks and one 
free block per cluster. The number of allocated blocks in a 
data set i s : 

number of base records 



number of allocated records per block 

The number of al located blocks in this example is 1000/2 or 500 
blocks . 

The number of clusters in a data set is the number of allocated 
data blocks divided by the number of allocated entries in each 
primary-level index block, with the result rounded up if there 
i s a rema i nder . 

n umber of allocated blocks 



number of allocated blocks per cluster 



The number of clusters in the above example is 500/5 
clusters . 



or 100 



Note that in both calculations, if the quotient is not an inte- 
ger, it is rounded up (rather than truncated) in order to 
accommodate all of the base records. 

The number of free blocks in the data set (not including the 
free pool) is the number of clusters in the data set multiplied 
by the number of free entries in each primary-level index 
block . 
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The Last Cluster 

The last cluster in the data set may be different from the other 
clusters. It contains the same number of free blocks as the 
other clusters but only enough allocated blocks to accommodate 
the records that you have specified with the parameter BASEREC. 
Because rounding occurs in calculating the number of clusters* 
a few more allocated records than required may exist in the 
last allocated block. The last cluster can be a short one 
because only the required number of blocks are used. 

If the number of allocated blocks divided by the number of 
allocated blocks per cluster leaves a remainder* the remainder 
represents the number of allocated entries in the 
primary-level index block in the last cluster. Unused entries 
in the last primary-level index block are treated as reserve 
block entr i es . 



Sequential Chaining 



Data blocks in an indexed data set are chained together by for- 
ward pointers located in the headers of data blocks. Only allo- 
cated data blocks are included in the sequential chain. 
Chaining allows sequential processing of the data set with no 
need to reference the index. When a free block is converted to 
an allocated block* the free block is included in the chain. 



Free Pool 



If you specify that you want a free pool (with the FPOOL parame- 
ter of the define command of the $IAMUT1 utility)* your indexed 
data set contains a pool of free blocks. The file control block 
contains a pointer to the first block of the free pool* and all 
blocks in the free pool are chained together by forward point- 
ers . 

A block can be taken from the free pool to become either a data 
block or a primary-level index block. The block is taken from 
the beginning of the chain* and its address (RBN) is placed in 
the appropriate primary-level index block (if the new block is 
to become a data block) or in the second level index block (if 
the new block is to become a primary-level index block). Any 
block in the free pool can be used as either a data block or as a 
primary-level index block. 

When a data block becomes empty because of record deletions* 
the data block may return to the free pool (depending on the 
delete threshold (DELTHR) parameter). If the data block is 
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returned to the free pool, reference to the block is removed 
from the primary-level index block* and the block is placed at 
the beginning of the free pool chain. Index blocks are never 
returned to the free pool. 

Calculating the initial size of the free pool consists of the 

following steps: 

• Each reserve block entry in a primary-level index block 
represents a potential data block from the free pool. The 
number of data blocks that can be assigned to initial clus- 
ters is the number of primary- level index blocks times the 
number of reserve block entries in each primary-level 
index block. 

• ■ ■• Each reserve index entry in a second-level index block 

represents a potential primary-level index block from the 
free pool. The number of primary-level index blocks that 
can be assigned from the free pool is the number of 
second-level index blocks times the number of reserve 
index entries in each second-level index block. 

• Each primary-level index block taken from the free pool 
consists entirely of empty (reserve block) entries. New 
data blocks can be taken from the free pool for the entries 
in the new primary-level index block. The number of data 
blocks is the number of entries per index block times the 
number of new primary-level index blocks (calculated in 
the previous step). 

• The maximum number of blocks that can be taken from the 
free pool is the sum of the above three calculations. 

• The actual number of blocks in the free pool is the speci- 
fied percentage (FPOOL) of the maximum possible free pool, 
with the result rounded up if there is a remainder. 



STORAGE AND PERFORMANCE 



Storage Requirements 



The minimum amount of storage required by the Indexed Access 
Method to perform all functions is about 14KB, not including 
the link module or any error exit routine you may have written. 
The storage estimate is based on the following assumptions: 
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size. You can improve performance by making the buffer 
larger. The program directory that is shipped with your 
PID material contains a description of the size and capaci- 
ty of the buffer and information on how to modify it. The 
buffer that is defined in $IAM should provide adequate per- 
formance for most applications. 

• One user connected to an indexed file at a time. If more 
than one user is connected* add about625 bytes per user. 

The size of the IBM-supplied link module which is included in 
your application program is about 250 bytes. 



Indexed File Size 

The structure of an indexed file is highly dependent on parame- 
ters you specify when you create the file. These parameters are 
described in "Data Set Format" on page 192. 



Performance 

Performance of the Indexed Access Method is primarily deter- 
mined by the structure of the indexed data set being used. This 
structure is determined by parameters you specify when you 
create the data set (refer to "Data Set Format" on page 192). 
The following factors affect performance: 

• File size. A large file spans more cylinders of the direct 
access. dev i ce > so the average seek to get the the record 
you want is longer. 

• Number of index levels. A file with many index levels 
requires more accesses to get to the desired data record* 
thus degrading performance. Factors which influence the 
number of index levels are: 

Number of records in data set. 

- Amount and type of free space. 

- Block s i ze . 
Key s i ze . 

- Data record size. 

Use the $IAMUT1 utility to see the affects of the various 
parameters on the file structure. (Refer to "Using the $IAMUT1 
Utility - An Example" on page 188 for an example.) 
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In addition to file structure* 
influence performance: 



the following factors also 



Buffer size. If you provide a large buffer when you install 
the Indexed Access Method* it is more likely that blocks 
(especially high-level index blocks) needed are already in 
storage and need not be recalled from the data set. 

Contention. If many tasks are using the Indexed Access 
Method concurrently* resource contention can result* and 

performance is degraded. 
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PART IV - EXTENDING THE SYSTEM CAPABILITIES 



This part gives detailed information on how to extend the capa- 
bilities of your system. 
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CHAPTER 10. THE SESSION MANAGER 



fhe session manager provides access to system functions and 
your applications. Full screen images* called menus* and their 
associated procedures invoke the functions you request. 
Because you control the session manager* you can modify it to 
meet your specific needs. You can add new options to an exist- 
ing menu or create a new menu. 

To add a new option (or tailor) the session manager requires an 
understanding of the one-to-one relationship between menus and 
procedures. Once you have acquired this understanding* you 
can : 

• Use the $IMAGE utility to add a new option to an existing 
menu 

• Use the $FSEDIT utility to add the new option to the proce- 
dure associated with the menu 

• Build the procedure for the new function* which requests 
its execution 



OPERATIONAL OVERVIEW 

The session manager can be invoked in two ways: 

• As part of the IPL procedure 

• With the $L (load) facility 

As a part of the IPL procedure, a copy of the session manager is 
loaded for each active 4 9 78 or 4979 display terminal. To 
accomplish this* the program $SMINIT is made a part of the IPL 
stream by renaming it to be $INITIAL. The program OINITIAL is 
part of the IPL stream and is automatically loaded if it is pre- 
sent. $SMINIT (SINITIAL) loads a copy of the session manager's 
main program ($SMMAIN) for each terminal that is active. If 
only selected terminals are to used with the session manager* 
you must load the session manager as required. 



The menu processing program* $SMCTL* processes menus and 
builds procedures that are passed to the job stream processor* 
$J0BUTIL* by the main program $SMMAIN. Copies of all procedures 
submitted to the job stream processor are stored on the same 
disk volume as the menus* usually EDX002. 

$ S M C T L reads a copy of the SJOBUTIL procedure into storage* and 
adds any parameters that you supply. $SMCTL then returns con- 
trol to $SMMAIN, which invokes SJOBUTIL* which executes the 
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requested function. Figure 30 on page 213 and the tables below 
list all of the session manager menus, the associated proce- 
dures, and the function of each procedure. 

The session manager requires a minimum partition size of 10K 
bytes to process menus and your requests. However, only 2K 
bytes remain resident when the requested functions are execut- 
ing. A root phase (main program), called SSMMAIN, is resident 
in the partition associated with the 4978/4979 display 
station. SSMMAIN requires approximately IK bytes of storage 
and is resident when the functions are executing; when invoked, 
it loads one of five programs into storage. The list below and 
Figure 29 on page 211 illustrate storage usage. 
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OKB 



12KB 



Logon 



SSMMAIN 
(1KB) 


0SMLOG 
(7KB) 


UNUSED 



Al locate 
data sets 



$SMMAIN 
(1KB) 


SSMLOG 
(7KB) 


$DISKUT3 
(4KB) 



Menu 
process i ng 



$SMMAIN 
(1KB) 


$SMCTL 
(9KB) 


UNUSED 



In vok i ng a 
f unct i on 



SSMMAIN 
(1KB) 


$J0BUTIL 
(1KB) 


UNUSED 



Execut i ng 
a f unct i on 



$SMMAIN 
(1KB) 



$J0BUTIL 
(1KB) 



User program 
or utility 



Remote job 
submission 



SSMMAIN 
(1KB) 



$SMJOBR 
(1.25KB) 



UNUSED 



Logoff 



SSMMAIN 
(1KB) 



$SMEND 
(2.25KB) 



UNUSED 



Delete 
data sets 



$SMMAIN 
(1KB) 



$SMEND 
(2.25KB) 



$DISKUT3 
(4KB) 



UNUSED 



Note : All storage sizes are approximate. 
Figure 29. Session manager storage usage 
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Program Functions 

$SMMAIN Storage resident program that 

loads programs and invokes 
f unct i ons 



SSMLOG Processes your ID and alternate 
menu 
Allocates dynamic work data sets 



$SMCTL Displays menus 

Processes the parameters you enter 
Builds procedures to invoke functions 
Saves parameters 



$JOBUTIL Invokes the functions you request 



$SMJOBR Submits the control statements that 
you build to a host system 
with the Host Communication Facility 



$SMEND Deal locates dynam i c work data sets 



SSMINIT Loads a copy of the session manager 
C$SMMAIN) for each active 4978/4979 
terminal. It can be renamed ^INITIAL 
(part of the IPL stream)* making 
session manager startup automatic. 



MENUS AND PROCEDURES 



Menu names begin with the prefix $SMM and procedures begin with 
$SMP. Therefore, any menus and procedures that you create must 
use the $SMM and $SMP prefixes. Except for the logon menu, 
$SMMLOG, and the primary option menu, $SMMPRIM, and procedure , 
$SMPPRIM, the menus and procedures are numbered to indicate the 
primary option number and the secondary option number, when 
appropriate. Menu names are always displayed in the upper left 
corner of the screen. 

Figure 30 on page 213 and the following tables list all of the 
session manager menus. Each is listed as a procedure name with 
its corresponding function. They are broken down into func- 
tional categories. 
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Primary 
options 



Option 1 



SSMMLOG 



SSMMPRIM 
$SMPPRIM 



Option 2 



$FSEDIT 



Option 3 



Secondary 
options 

10 



Option 4 



$PL/I 
$LINK 
5UPDATE 



$EDXASM 

$LINK 

SUPDATE 



$PREFIND 



$UPDATEH J 



$UPDATE 



SLINK J 



SFORT 



SCOBOL 



$S1ASM J 



SEDXASM J 



Option 5 



$TAPEUT1 

(VERSION 

2 ONLY) 



$IAMUT1 



$MOVEVOL J 



5INITDSK 



$DASDI J 



$COPY 



$COMFRES 



SCOPYUT1 



$DISKUT2 J 



SDISKUT1 



Option 6 



SPFMAP 



SFONT 



SIMAGE 



$TERMUT3 J 



$TERMUT2 



$TERMUT1 J 



Option 7 



EXEC 



$DIINTR 



SDICOMP J 



SDIUTIL J 



Option 8 



SJOBUTIL 



Option 9 



SHCFUT1 



SPRT3780 -I 



SPRT2780 



$RJE3780 -1 



SRJE2780 



$BSCUT2 



$BSCUT1 J 



SBSCTRCE J 



$IOTEST 



SDISKUT2 J 



$LOG 



$DUMP 



$TRAP -• 



Figure 30. Session manager primary and secondary options 
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PRIMARY MENUS 



Procedure Name 



Funct i on 



SSMMLOG 

$SMMPRIM 

$SMPPRIM 



LOGON MENU 
PRIMARY OPTION MENU 
PRIMARY OPTION DECISION TABLE 
PROCEDURE 



PROGRAM PREPARATION UTILITIES 



Opt i on 



Menu/ 

Procedure 

Name 



Funct i on 



2.1 
2.2 
2.3 
2.4 
2.5 
2.6 
2.7 
2.8 
2.9 

2.10 



$SMP01 
$SMM02 

$SMP02 

$SMM0201 

$SMP0201 

$SMM0202 

$SMP0202 

$SMM0203 

SSMP0203 

$SMM0204 

$SMP0204 

$SMM0205 

$SMP0205 

$SMM0206 

$SMP0206 

$SMM0207 

$SMP0207 

$SMM0208 

$SMP0208 

$SMM0209 

SSMP0209 

$SMM0210 
INPUT ME 
$SMP0210 



EXECUTE $FSEDIT 
PROGRAM PREPARAT 

OPTION MENU 
PROGRAM PREPARAT 
$EDXASM PARAMETE 
EXECUTE $EDXASM 
$S1ASM PARAMETER 
EXECUTE $S1ASM P 
$COBOL PARAMETER 
EXECUTE $COBOL P 
$FORT PARAMETER 
EXECUTE $FORT PR 
$LINK PARAMETER 
EXECUTE $LINK PR 
$UPDATE PARAMETE 
EXECUTE $UPDATE 
$UPDATEH PARAMET 
EXECUTE $UPDATEH 
$PREFIND PARAMET 
EXECUTE SPREFIND 
$EDXASM/$LINK/$U 

INPUT MENU 
EXECUTE $EDXASM/ 

PROCEDURE 
$PL/I/$LINK/$UPD 



PROCEDURE 

ION SECONDARY 

ION DECISION TABLE 
R INPUT MENU 
PROCEDURE 

INPUT MENU 
ROCEDURE 

INPUT MENU 
ROCEDURE 
INPUT MENU 
OCEDURE 
INPUT MENU 
OCEDURE 
R INPUT MENU 
PROCEDURE 
ER INPUT MENU 

PROCEDURE 
ER INPUT MENU 

PROCEDURE 
PDATE PARAMETER 



NU 



$LINK/$UPDATE 
ATE PARAMETER 
EXECUTE $PL/I/$LINK/$UPDATE PROCEDURE 
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DATA MANAGEMENT UTILITIES OPTIONS 



Opt i on 



Menu/ 

Procedure 

Name 



Funct i on 



3.9 
3.10 



$SMM03 

$SMP03 

$SMP0301 
SSMP0302 
$SMP0303 
$SMP0304 
SSMP0305 
$SMP0306 
$SMP0307 
$SMM0308 
$SMP0308 
$SMP0309 
SSMP0310 



DATA MANAGEMENT 
SECONDARY OPTION 
DATA MANAGEMENT 
OPTION DECISION 
EXECUTE $DISKUT1 
EXECUTE $DISKUT2 
EXECUTE $C0PYUT1 
EXECUTE OCOMPRES 
EXECUTE $COPY PR 
EXECUTE $DASDI P 
EXECUTE $INITDSK 
OMOVEVOL PARAMET 
EXECUTE $MOVEVOL 
EXECUTE $IAMUT1 
EXECUTE $TAPEUT1 
(Vers ion 2 only ) 



UTILITIES 

MENU 
UTILITIES 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 

OCEDURE 

ROCEDURE 
PROCEDURE 

ER INPUT MENU 
PROCEDURE 

PROCEDURE 
PROCEDURE 



TERMINAL UTILITIES OPTIONS 



Opt l on 



Menu/ 

Procedure 

Name 



Funct i on 



$SMM04 TERMINAL UTILITIES SECONDARY OPTION 

MENU 
SSMP04 TERMINAL 

TABLE 
$SMP0401 EXECUTE 
$SMP0402 EXECUTE 
SSMP0403 EXECUTE 
$SMP0404 EXECUTE 
$SMP0405 EXECUTE 
$SMP0406 EXECUTE 



UTILITIES OPTION DECISION 

$TERMUT1 PROCEDURE 
$TERMUT2 PROCEDURE 
$TERMUT3 PROCEDURE 
$IMAGE PROCEDURE 
$FONT PROCEDURE 
$PFMAP PROCEDURE 
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GRAPHIC UTILITIES OPTIONS 



Opt i on 



Menu/ 

Procedure 

Name 



Funct 1 on 



5.1 
5.2 
5.3 



$SMM05 

$SMP05 

SSMM0501 
SSMP0501 
SSMM0502 
$SMP0502 
$SMP0503 



GRAPHIC 

MENU 
GRAPHIC 
TABLE 
$DIUTIL 
EXECUTE 
SDICOMP 
EXECUTE 
EXECUTE 



UTILITIES SECONDARY OPTION 

UTILITIES OPTION DECISION 

PARAMETER INPUT MENU 
SDIUTIL PROCEDURE 
PARAMETER INPUT MENU 
$DICOMP PROCEDURE 
SDIINTR PROCEDURE 



EXECUTE PROGRAM UTILITIES OPTIONS 



Opt \ on 



Menu/ 

Procedure 

Name 



Funct i on 



SSMM06 EXECUTE PROGRAM PARAMETER INPUT MENU 
$SMP06 EXECUTE PROGRAM PROCEDURE 



JOB STREAM PROCESSOR UTILITIES OPTIONS 



Opt i on 



Menu/ 

Procedure 

Name 



Function 



$SMM07 $JOBUTIL PARAMETER INPUT MENU 
$SMP07 EXECUTE $JOBUTIL PROCEDURE 
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COMMUNICATIONS UTILITIES OPTIONS 



Menu/ 
Procedure 
Option Name 



Funct i on 



8 



8.1 



8.7 



8.8 



$SMM08 COMMUNICATION UTILITIES SECONDARY 

OPTION MENU 

$SMP08 COMMUNICATION UTILITIES OPTION 

DECISION TABLE 

$SMM0801 OBSCTRACE PARAMETER INPUT MENU 

$SMP0801 EXECUTE SBSCTRACE PROCEDURE 

$SMP0802 EXECUTE $BSCUT1 PROCEDURE 

$SMP0803 EXECUTE $BSCUT2 PROCEDURE 

SSMP0804 EXECUTE SRJE2780 PROCEDURE 

$SMP0805 EXECUTE $RJE3780 PROCEDURE 

$SMM0806 SPRT2780 PARAMETER INPUT MENU 

$SMP0806 EXECUTE $PRT2780 PROCEDURE 

$SMM0807 0PRT3780 PARAMETER INPUT MENU 

$SMP0807 EXECUTE $PRT3780 PROCEDURE 

$SMM0808 $HCFUT1 PARAMETER INPUT MENU 

$SMP0808 EXECUTE $HCFUT1 PROCEDURE 



DIAGNOSTIC UTILITIES OPTIONS 



Opt l on 



Menu/ 

Procedure 

Name 



Funct i on 



9.0 

9.1 

9.2 

9.3 

9.4 
9.5 



SSMM09 DIAGNOSTICS SECONDARY OPTION MENU 

$SMP09 DIAGNOSTICS DECISION TABLE 

$SMM0901 STRAP PARAMETER INPUT MENU 

$SMP0901 EXECUTE $TRAP PROCEDURE 

$SMM0902 $DUMP PARAMETER INPUT MENU 

$SMP0902 EXECUTE $DUMP PROCEDURE 

$SMM0903 $LOG PARAMETER INPUT MENU 

$SMP0903 EXECUTE $LOG PROCEDURE 

$SMP0904 EXECUTE $DISKUT2 PROCEDURE 

$SMP0905 EXECUTE $IOTEST PROCEDURE 
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Primary Option Menu 



The first screen to appear after the logon menu is a primary 
option menu called SSMMPRIM. From this menu you select the 
utility or function you wish to use. This selection causes a 
secondary option menu to appear. 

You may add your applications to the session manager by creat- 
ing your own primary option menu. If you create your own prima- 
ry option menu* you can specify its name on the logon screen as 
an alternate session menu. This causes your menu to appear 
instead of $SMMPRIM. 



Secondary Option Menus 



The procedure associated with an option menu is a decision 
table which points to secondary menus and procedures. 
Figure 31 on page 219 illustrates all menus and procedures. 
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OPTION 



PROCEDURE/ 
MENU, 



DESCRIPTION 



2.10 



1 
2 
3 

5 
6 
7 
8 
9 
10 



5.1 
5.2 
5.3 
6 

7 



$SMP01 

SSMM02 

SSMM0201 

$SMM0202 

$SMM0203 

$SMM0204 

$SMM0205 

$SMM0206 

$SMM0207 

SSMM0208 

SSMM0209 

$SMM0210 

$SMM03 

SSMP0301 
$SMP0302 
$SMP0303 
$SMP0304 
$SMP0305 
SSMP0306 
SSMP0307 
$SMM0308 
SSMP0309 
$SMM0310 
$SMM04 

$SMP0401 
$SMP0402 
$SMP0403 
SSMP0404 
$SMP0405 
$SMP0406 
$5MM05 

$SMM0501 

SSMM0502 

$SMP0503 

$SMM06 

$SMM07 



ONDARY OPTION MENU 
R INPUT MENU 

INPUT MENU 

INPUT MENU 
INPUT MENU 
INPUT MENU 
R INPUT MENU 
ER INPUT MENU 
ER INPUT MENU 
PDATE PARAMETER 

ATE PARAMETER 

UTILITIES 
MENU 



EXECUTE $FSEDIT 
PROGRAM PREP SEC 
$EDXASM PARAMETE 
$S1ASM PARAMETER 
$COBOL PARAMETER 
$FORT PARAMETER 
$LINK PARAMETER 
$UPDATE PARAMETE 
$UPDATEH PARAMET 
SPREFIND PARAMET 
$EDXASM/$LINK/$U 

INPUT MENU 
$PL/I/$LINK/$UPD 
INPUT MENU 
DATA MANAGEMENT 
SECONDARY OPTION 
EXECUTE $DISKUT1 
EXECUTE $DISKUT2 
EXECUTE $C0PYUT1 
EXECUTE $COMPRES 
EXECUTE $COPY 
EXECUTE $DASDI 
EXECUTE $INITDSK 
$MOVEVOL PARAMETER INPUT MENU 
EXECUTE $IAMUT1 
EXECUTE $TAPEUT1 
TERMINAL UTILITI 

OPTION MENU 
EXECUTE $TERMUT1 
EXECUTE STERMUT2 
EXECUTE $TERMUT3 
EXECUTE $IMAGE 
EXECUTE SFONT 
EXECUTE $PFMAP 
GRAPHICS UTILITIES SECONDARY 



(Version 2 only) 
ES SECONDARY 



OPTION MENU 
5DIUTIL PARAMETE 
$DICOMP PARAMETE 
EXECUTE $DIINTR 
SELECTED PROGRAM 
$JOBUTIL PARAMET 



R INPUT MENU 
R INPUT MENU 

PARAMETER INPUT MENU 
ER INPUT MENU 



Figure 31. (Part 1 of 2) Menus and Procedures 
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PROCEDURE/ 



OPTION MENU 



DESCRIPTION 



8 SSMM08 COMMUNICATION UTILITIES OPTION MENU 

8.1 $SMM0801 SBSCTRACE PARAMETER INPUT MENU 

8.2 $SMP0802 EXECUTE $BSCUT1 

8.3 $SMP0803 EXECUTE 0BSCUT2 

8.4 $SMP0804 EXECUTE ORJE2780 

8.5 $SMP0805 EXECUTE $RJE3780 

8.6 $SMM0806 $PRT2780 PARAMETER INPUT MENU 

8.7 $SMM0807 $PRT3780 PARAMETER INPUT MENU 

8.8 $SMM0808 $HCFUT1 PARAMETER INPUT MENU 

9 $SMM09 DIAGNOSTICS SECONDARY OPTION MENU 

9.1 $SMM0901 $TRAP PARAMETER INPUT MENU 

9.2 $SMM0902 $DUMP PARAMETER INPUT MENU 

9.3 $SMM0903 $LOG PARAMETER INPUT MENU 

9.4 $SMM0904 EXECUTE $DISKUT2 

9.5 $SMM0905 EXECUTE $IOTEST 



Figure 32. (Part 2 of 2) Menus and Procedures 



If no further inputs are required* as in the first option* then 
a procedure name is listed alongside the option number (such 
as, Option 1-$SMP01). If, as in Option 2, the option number is 
listed with the name of a menu, then it indicates the name of a 
secondary menu (such as, Option 2-$SMM02). 



Procedures 



Procedures are divided into two types -- option decision tables 
and procedures passed to $JOBUTIL, the job stream processor, to 
invoke the function. The $JOBUTIL procedures can contain two 
parts -- the first part saves parameters from session to ses- 
sion; the second part is the actual procedure passed to 
SJOBUTIL. 

Figure 33 on page 222 is the procedure used to invoke the 
assembler $EDXASM. The parameter part begins with the key word 
PARAMETER and ends with the first END statement. The PARAMETER 
and END keywords are peculiar to the session manager, not part 
of the normal $J0BUTIL procedure. Within the procedure, each 
parameter variable is assigned a name SPARMnn., where nn is a 
positional index associated with an FTAB table built by the 
system routine OIMPROT for the menu associated with this proce- 
dure (such as, $SMM0201). 
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The FTAB table provides the screen location (line and spaces) 
and size (characters) of each parameter field on the menu, in 
ascending order. The session manager program SSMCTL uses the 
FTAB table to retrieve the parameters it uses to replace the 
SPARMnn. fields before passing the procedure to SJOBUTIL. The 
parameter &PARM00. always represents your one to four charac- 
ter logon ID. 

The &SAVEmm fields in the parameter part of the procedure point 
to fields in the parameter save data set OSMPnnnn (where nnnn 
is the logon ID) where the parameters you enter are saved from 
session to session. The two digits* mm, are used to index into 
the data set . 



Note that multiple SPARMnn. fields between 
are sequential* beginning with $PARM01. 



PARAMETER and END 



The following table lists the $SAVEmm fields* the procedure 
with which they are associated, and the utility or function 
invoked. When assigning values to the index digits (mm) in your 
procedure, start with 90 and work backwards to 61. 



FIELD # 


PROCEDURE 


UTILITY/FUNCTION 


$SAVE01-03 


SSMP0201 


$EDXASM 


$SAVE04-06 


SSMP0202 


$S1ASM 


$SAVE07-13 


$SMP0203 


$C0B0L 


$SAVE14-16 


$SMP0204 


$F0RT 


$SAVE17-18 


$SMP0205 


$LINK 


SSAVE19-22 


$SMP0206 


$UPDATE 


$SAVE23-24 


$SMP0208 


SPREFIND 


$SAVE25-26 


$SMP0308 


$M0VEV0L 


$SAVE27 


0SMP0405 


$F0NT 


$SAVE28 


$SMP0501 


$DIUTIL 


. SSAVE29 


$SMP0502 


$DIC0MP 


$SAVE30 


$SMP0503 


$DIINTR 


$SAVE31-35 


$SMP06 


Execute application 
program 


$SAVE36 


$SMP0801 


$BSCTRCE 


SSAVE37 


$SMP0806 


SPRT2780 


SSAVE38 


$SMP0807 


$PRT3780 


$SAVE39 


$SMP0808 


$HCFUT1 


$SAVE40-41 


0SMP0208 


$PREFIND 


$SAVE42 


$SMP0901 


$TRAP 


$SAVE43 


SSMP0902 


$DUMP 


$SAVE44 


$SMP0903 


$L0G 


$SAVE45-49 


$SMP0210 


$PLI 


$SAVE50-60 


Reserved 
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PARAMETER 




&PARM01, 


&SAVE01 




&PARM02, 


&SAVE02 




&PARM03, 


&SAVE03 




END 






LOG 


OFF 




REMARK 


3ASSEMBLE &PARM01. TO &PARM02. 


USERID=&PARM00. 


JOB 


$SMP0201 




PROGRAM 


$EDXASM,ASMLIB 




PARM 


&PARM03. 




DS 


&PARM01 . 




DS 


&SM1&PARM00. ,EDX003 




DS 


&PARM02. 




EXEC 






EOJ 






END 







Figure 33. Invoking EDXASM 



Parameters that have been saved are retrieved from the SSMPnnnn 
data set according to the relationships in the first part of 
the procedure. These parameters are displayed on the terminal. 
Then any parameters you enter from the terminal are used to 
update the procedure. 



ALLOCATING AND DELETING WORK DATA SETS 



The session manager allocates work data sets at logon time. 
They may be deleted at logoff time with one of the text editors. 
Two data sets, $SMALLOC and $SMDELET, are provided which are 
used in allocating and deleting data sets. SSMALLOC contains 
the data sets to be allocated and $SMDELET contains the data 
sets to be deleted. Figure 34 on page 223 lists the contents of 
$SMALLOC and Figure 35 on page 224 lists the contents of 
$SMDELET. 

You may tailor the work data set allocations and deletions by 
modifying the $SMALLOC and OSMDELET data sets via the $FSEDIT 
utility. Modifications usually consists of changing the size 
or volume of a data set. However, you may allocate and delete 
up to four additional data sets. By moving the END terminator 
below $SM7 (statement 00120), you may allocate data sets $SM4, 
$SM5, $SM6, and $SM7. If you modify $SMALL0C, you should also 
modify SSMDELET to be consistent. 
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If the volume name of a work data set is to be changed within 
the $SMALLOC and 5SMDELET data sets, then all of the Session 
Manager procedures which use the work datasets should be modi- 
fied to reflect the change as well. 



00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00260 
00270 
00230 
00270 



$SMP 

$SMP 

$5MW 

$SME 

$SM1 

$SM2 

$SM3 

END 

$SM4 

$SM5 

$SM6 

$SM7 

xxxx 

xxxx 

xx $ 

xx 

xx 

xx 

xx 

xx 

xx 

xxxx 

xxxx 



00 

30 

30 

400 

400 

400 

250 

xxx 

100 

100 

100 

100 

xxxxx 

xxxxx 

SMLOG 

FUNCT 

NOTE 



NOTE 

xxxxx 
xxxxx 



xxxxxxxxx 



EDX 
EDX 
EDX 
EDX 
EDX 
EDX 
EDX 
TERMI 
EDX 
EDX 
EDX 
EDX 

xxxxxx 

xxxxxx 
WORK 

ION 

: THE 
THE 
REAS 

: THE 
TEST 

xxxxxx 

xxxxxx 

END 

xxxxxx 



003 

003 

003 

003 

003 

003 

003 

NATOR 

003 

003 

003 

003 

xxxxx 

xxxxx 

DATA 

DATA 
VOLUM 
SIGNE 
FIRST 

FOR 
xxxxx 
xxxxx 



NAM 
SIZ 
SIZ 
SIZ 
SIZ 
SIZ 
SIZ 
- E 
SIZ 
SIZ 
SIZ 
SIZ 
xxxx 
xxxx 
SET 



AND 
AND 
AND 
AND 
AND 
AND 
AND 
ND OF 
E AND 
E AND 
E AND 
E AND 
xxxxx 
xxxxx 
PARAM 



VOLU 
VOLU 
VOLU 
VOLU 
VOLU 
VOLU 
VOLU 
ALLO 
VOLU 
VOLU 
VOLU 
VOLU 
xxxxx 
xxxxx 
ETER 



ME 
ME 
ME 
ME 
ME 
ME 
ME 



CATE 
ME T 
ME T 
ME T 
ME T 
xxxx 
xxxx 
VALU 



OR 
AL 
AL 
AL 
AL 
AL 
AL 
D DA 
AL 
O AL 
AL 
O AL 
xxxx 
xxxx 
ES F 



SETS $SMW 
E EDX003. 
D. 

ENTRY IN 
THE EXIST 
xxxxxxxxx 
xxxxxxxxx 



AND $SMP MUS 
ALL OTHERS 

THIS LIST IS 
ENCE OF THE $ 
xxxxxxxxxxxxx 
xxxxxxxxxxxxx 



PEN 

LOCA 

LOCA 

LOCA 

LOCA 

LOCA 

LOCA 

TA S 

LOCA 

LOCA 

LOCA 

LOCA 

xxxx 

xxxx 

OR A 

T RE 
MAY 

USE 
SMP 
xxxx 
xxxx 



TE 

TE 

TE 

TE 

TE 

TE 

ETS 

TE 

TE 

TE 

TE 

xxxxxx 

xxxxxx 

LLOCAT 



SIDE 
BE 



ON 



D TO 
DATA 
xxxxxx 
xxxxxx 



xxxx 
xxxx 
E xx 

XX 
XX 
XX 
XX 
XX 
XX 

xxxx 
xxxx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



Figure 34. $SMALLOC data set 



Chapter 10. The Session Manager 



223 



00010 $SME 00 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00020 $SM1 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00030 $SM2 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00040 $SM3 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00050 $SMW EDX003 PREFIX NAME AND VOLUME TO DELETE 

00060 END xxx TERMINATOR - END OF DATA SETS TO BE DELETED 

00070 $SM4 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00080 $SM5 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00090 $SM6 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00100 $SM7 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00110 xxxxxx*»*xxx^xxx)fxxxxxxxxx*xxxxxxxxxxxxxx)fx)(xxxxxxxxxxxx 

00120 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

00130 xx $SMEND WORK DATA SET PARAMETER VALUES FOR DELETE xx 

00140 xx FUNCTION xx 

00160 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx***xxxxx*xx 

00170 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
00180 END 

00190 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

Figure 35. $SMDELET data set 



ADDING AN OPTION TO THE SESSION MANAGER 



The session manager can invoke your programs in the following 
ways : 

• Under primary option 6 (Execute Program Utilities Options) 

• Through a menu that you have created, that is specified on 
the logon menu as an alternate to the primary option menu 

• By adding a new option to an existing session manager menu 

In the following example* a new option is added to the primary 
option menu. It is to be used to execute a hypothetical appli- 
cation program called PAYROLL. No parameters are required and 
it can be invoked directly from the primary option menu. The 
example illustrates: 

• How to update the primary option menu $SMMPRIM, using the 
$IMAGE utility, to add a new option called PAYROLL 

• How to update the associated procedure $SMPPRIM to include 
the new option, using the utility $FSEDIT 

• How to build a new procedure called $SMPPAY, using the 
utilities SDISKUT1 and SFSEDIT, that will be submitted to 
$J0BUTIL to execute the program PAYROLL. 
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All of these steps will be done using the session manager. 

The same procedure can be used to modify secondary options 
menus. 



Updating the Primary Option Menu 



The following steps add a new option* called PAYROLL, to the 
primary option menu: 

• Step 1. IPL the Series/1 and load the session manager; 
enter your ID on the logon menu. 

• Step 2. When the primary option menu is displayed* select 
option 4 -- the terminal utilities. When the next menu is 
displayed for the terminal utilities, it is the secondary 
option menu $SMM04. 

• Step 3. Select option 4, the screen formatting utility, to 
invoke the utility $ I M A G E . The utility gets control and 
prompts you for a command. The first command entered is to 
define a null character. It is entered as follows: 



COMMANDC?): NULL 3 



Step 4. Edit menu $SMMPRIM. 
enter : 



After the next command prompt 



COMMANDC?): EDIT SSMMPR IM , EDX002 



The primary option menu, $SMMPRIM, appears next on the ter- 
minal screen . 

Step 5. To update the menu, press the PF1 key; this causes 
the protected fields of menu $SMMPRIM to be displayed as 
non-protected, so that they can be redefined. The data 
fields now are represented by the null character, 3, 
defined in Step 3. There must be eight null characters for 
option selection menus. Parameter selection menus may con- 
tains field of 1 to 64 characters. 
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SSMMPRIM: SESSION MANAGER PRIMARY OPTION MENU 

ENTER/SELECT PARAMETERS: DEPRESS PF3 TO EXIT 



SELECT OPTION ==> 33333333 

1 - TEXT EDITING 

2 - PROGRAM PREPARATION 

3 - DATA MANAGEMENT UTILITIES 

4 - TERMINAL UTILITIES 

5 - GRAPHICS UTILITIES 

6 - EXEC PROGRAM/UTILITY 

7 - EXEC SJOBUTIL PROC 

8 - SENSOR/COMMUNICATION UTILITIES 

9 - DIAGNOSTICS AIDS 
10 - EXECUTE PAYROLL 



Figure 36. Session manager primary option menu 



Step 6. Add the new PAYROLL opt i on , opt i on 10 - EXECUTE 
PAYROLL Press the ENTER key to display the newly-defined 
menu image (Figure 36). 

Step 7. Press the PF3 key to return to the $IMAGE command 
mode. In response to the command prompt* enter? 



COMMANDC?): SAVE $SMMPR IM , EDX002 



The menu is saved and is ready to use. Terminate SIMAGE and the 
updated primary option menu will be displayed. 



Updating the Procedure 



The following steps update the procedure associated with the 
primary option menu? 

• Step 1. Select option 1 (text editing) on the primary 
option menu and press the ENTER key. The utility* SFSEDIT, 
is loaded and control is passed to it. The next menu on the 
terminal screen is the primary option menu for $FSEDIT. 
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Step 2. Select option 3 and press the ENTER key to read the 
procedure $SMPPRIM. Specify volume EDX002 for the VOLUME 
prompt, and $SMPPRIM for the data set prompt as shown in 
Figure 37 on page 227. 



$FSEDIT PRIMARY OPTION MENU 

SELECT OPTION ===> 3 

1 BROWSE - DISPLAY DATASET 

2 EDIT - CREATE OR CHANGE DATASET 

3 READ - READ DATASET FROM HOST/NATIVE (H/N) 

4 WRITE ■- WRITE DATASET TO HOST/NATIVE (H/N) 

5 SUBMIT - SUBMIT BATCH JOB TO HOST SYSTEM 

6 LIST - PRINT DATASET ON SYSTEM PRINTER 

7 MERGE - MERGE DATA FROM A SOURCE DATASET 

8 END - TERMINATE $FSEDIT 

9 HELP - DISPLAY TUTORIAL 




Figure 37. Session manager $FSEDIT primary option menu 



Step 3. After the utility has read the procedure $SMPPRIM 
into your edit work data set* enter option 2 to update the 
procedure. At the bottom of the procedure, add the new 
option number and the name of the new procedure called 
$SMPPAY. Figure 38 on page 228 illustrates how the 
procedure should appear after the update has been made. 

Step 4 . Return to the primary option menu by entering the 
word MENU in the command field. Then specify option 4 on 
the $ F S E D I T primary option menu when it is displayed again 
on the screen. Respond YES to the prompt message which 
asks if you want the procedure written back to the same 
data set and volume. This places the updated procedure 
$SMPPRIM back on the disk volume EDX002. 

Step 5. Enter option 8 to terminate $ F S E D I T and return to 
the primary option menu for the session by pressing ENTER. 
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OPTION 



PROCEDURE/ 
MENU 



DESCRIPTION 



2. 10 
3 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



5.1 

5.2 

5.3 

6 

7 



$SMP01 

$SMM02 

$SMM0201 

$SMM0202 

$SMM0203 

$SMM0204 

$SMM0205 

$SMM0206 

$SMM020 7 

$SMM0208 

$SMM0209 

$SMM0210 

$SMM03 

$SMP0301 
$SMP0302 
$SMP0303 
$SMP0304 
$SMP0305 
$SMP0306 
$SMP0307 
$SMM0308 
$SMP0309 
$SMP0310 
$SMM04 

$SMP0401 
$SMP0402 
$SMP0403 
$SMP0404 
$SMP0405 
$SMP0406 
$SMM05 

$SMM0501 

SSMM0502 

$SMP0503 

$SNM06 

$SMM07 



EXECU 
PROGR 
$EDXA 
$S1AS 
$COBO 
$FORT 
$LINK 
$UPDA 
$UPDA 
$PREF 
$EDXA 

INP 
$PL/I 

INP 
DATA 

SEC 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
$MOVE 
EXECU 
EXECU 
TERMI 

OPT 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
GRAPH 

OPT 
$DIUT 
SDICO 
EXECU 
SELEC 
$JOBU 



TE $FSED 
AM PREP 
SM PARAM 
M PARAME 
L PARAME 
PARAMET 
PARAMET 
TE PARAM 
TEH PARA 
IND PARA 
SM/$LINK 
UT MENU 
/$LINK/$ 
UT MENU 
MANAGEME 
ONDARY 
TE $DISK 
$DISK 
$C0PY 
$COMP 
$COPY 
$DASD 
$INIT 
PARA 



TE 
TE 
TE 
TE 
TE 
TE 
VOL 



TE $IAMU 
TE $TAPE 
NAL UTIL 
ION MENU 
TE $TERM 
$TERM 
$TERM 
$IMAG 
$FONT 
$PFMA 
UTIL 



TE 
TE 
TE 
TE 
TE 
ICS 



IT 

SECONDARY OPTION MENU 

ETER INPUT MENU 

TER INPUT MENU 

TER INPUT MENU 

ER INPUT MENU 

ER INPUT MENU 

ETER INPUT MENU 

METER INPUT MENU 

METER INPUT MENU 

/$UPDATE PARAMETER 

UPDATE PARAMETER 

NT UTILITIES 

PTION MENU 

UT1 

UT2 

UT1 

RES 

I 

DSK 

METER INPUT MENU 

Tl 

UT1 (Version 2 only) 

ITIES SECONDARY 

UT1 
UT2 
UT3 
E 



P 
ITIES 



SECONDARY 



ION MENU 
IL PARAM 
MP PARAM 
TE $DIIN 
TED PROG 
TIL PARA 



ETER INPUT MENU 

ETER INPUT MENU 

TR 

RAM PARAMETER INPUT 

METER INPUT MENU 



MENU 



Figure 38. 



$SMPPRIM option menu with option 10 added (Part 1 
2) 



of 
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OPTION 



PROCEDURE/ 
MENU 



DESCRIPTION 



8.8 
9 



9. 
9. 
9. 
9. 
9 . 
10 



$SMM08 

SSMM0801 

$SMP0802 

$SMP0803 

$SMP0804 

$SMP0805 

$SMM0806 

SSMM0807 

$SMM0S08 

$SMM09 

$SMM0901 

SSMM0902 

$SMM0903 

$SMM0904 

$SMM0905 

SSMPPAY 



COMMUN 

$BSCTR 

EXECUT 

EXECUT 

EXECUT 

EXECUT 

$PRT27 

$PRT37 

$HCFUT 

DIAGNO 

$TRAP 

$DUMP 

SLOG P 

EXECUT 

EXECUT 

EXECUT 



ICATI 
ACE P 
E $BS 
E $BS 
E $RJ 
E $RJ 
80 PA 
80 PA 
1 PAR 
STICS 
PARAM 
PARAM 
ARAME 
E $DI 
E $10 
E APP 



ON U 
ARAM 
CUT1 
CUT2 
E278 
E378 
RAME 
RAME 
AMET 
SEC 
ETER 
ETER 
TER 
SKUT 
TEST 
LICA 



TILITIES OPTION MENU 
ETER INPUT MENU 







TER INPUT MENU 

TER INPUT MENU 

ER INPUT MENU 

ONDARY OPTION MENU 

INPUT MENU 

INPUT MENU 
INPUT MENU 
2 

TION PROGRAM PAYROLL 



Figure 39 . 



$SMPPRIM 
2) 



option menu with option 10 added (Part 2 of 



Building a $JOBUTIL Procedure 



A procedure may be created that will be passed to the job stream 
processor utility to request execution of the program PAYROLL. 

For this example* assume that the program PAYROLL already 
exists, requires no parameters* and resides on disk volume 
EDX002. 

1. From the primary option menu, select both the primary and 
secondary options by entering 3.1. This invokes the disk 
uti li ty $DISKUT1. 

2. In response to the command prompts, enter the responses as 
shown in Figure 40 on page 230. This will allocate a data 
set called $ S M P P A Y to hold the new procedure. 
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JOB $DISKUT1 
USING VOLUME EDX002 

COMMAND (?): AL $SMPPAY 10 
DEFAULT TYPE = DATA - OK? Y 



Figure 40. Job SDISKUT1 



3. Enter EN for the next command prompt and the session manag- 
er's primary option menu is again displayed on the terminal 
screen . 

4 . Select option 1 , text editing, to invoke the $ F S E D I T utili- 
ty. 

5. Select option 2 and create the new procedure as shown in 
Figure 41 . 



PARAMETER 

END 

LOG OFF 

REMARK 3PAYR0LL USER ID=&PARM00 

JOB $SMPPAY 

PROGRAM PAYROLL, EDX002 

EXEC 

EOJ 

END 



Figure 41 . Job $SMPPAY 



6. When the procedure is completely entered, return to the 
$FSEDIT primary option menu by entering MENU on the command 
line. 

7. Select option 4 and write the new procedure back to the 
disk volume EDX0 02 . 

8. Enter the same responses shown in Figure 37 on page 227 
with the previous exception that the data set name speci- 
fied is $SMPPAY. 

9. When control returns, enter option 8 to exit $ F S E D I T and 
return to the session manager. 
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Now the session manager is completely tailored. The new option 
can be specified on the primary option menu and the program 
PAYROLL will execute. 

More sophisticated procedures can be built by copying existing 
session manager procedures and updating them with the $ F S E D I T 
utility to invoke different programs and save parameters in 
unused fields in the data set $SMPnnnn (nnnn is your ID). The 
parameter data set can save up to 90 parameters (three per 256 
byte block). The session manager uses the first sixty parame- 
ter locations* labeled &SAVE01 through &SAVE60. The remaining 
30 parameter fields (&SAVE61 through &SAVE90) are available 
for your use. Many procedure formats are used by the session 
manager and these should provide you with some valuable guide- 
lines for building your own procedures. 
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CHAPTER 11. TAPE ORGANIZATION 



This chapter explains the types 'of label processing provided 
with the IBM 4 9 6 9 Magnetic Tape Subsystem and the organization 
of tape data sets. Figures are included to show the layout* 
format* and content of labels supported. 

The STAPEUTl utility allows you to allocate tape data sets* 
copy data sets from one medium to another* and change tape 
attributes. For detailed information on the $TAPEUT1 utility 
see Utilities* Operator Commands? Program Preparation* 
Messages and Codes . 



For detailed information on Tape I/O 
Language Reference . 



instructions* see the 



Note '• Tapes are supported by Version 2 only. 



EXTERNAL AND INTERNAL LABELS 



When data records are stored on volumes of magnetic tape* those 
volumes must be identified (labeled) for future reference to 
the data. Two kinds of labeling can be used: external and 
internal . 



External labels are attached to the outside of 
enable you to identify the tape visually. 



the tape to 



Internal labels are written directly on the tape itself and are 
read the same way data records are read. 

When a volume of tape is first received, it should be assigned a 
unique number* a volume serial number. The volume serial num- 
ber is the identifying number for the volume. The volume serial 
number should be written on an external label* and recorded on 
an internal label. Other information contained in external and 
internal labels is determined by the files on the tape. This 
information usually changes from time to time. 



In addition to the volume number* the external 
contain such items of identification as: 



label could 



• file name 

• file number 

• file creation date 
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• number of volumes* if more than one volume is required 
(Even though EDX does not support multi-volume processing* 
an application programmer can implement a form of 
multi-volume processing.) 

• department number 

Internal labels usually contain the same information that is 
written on external labels; such as the volume serial number 
and the names of the files contained on the volume. Internal 
labels can be checked by the system when a tape is mounted* 
helping to ensure that the correct volume is being used for 
each application. 

Control characters called tapemarks are used to separate 
files. The arrangement of label records* tapemarks* and data 
records is called the volume layout* which is discussed and 
illustrated in this chapter. 



TYPES OF INTERNAL LABELS 



Tape files may be either labeled or non-labeled. EDX supports a 
subset of DOS/VS labels. Tapes created on DOS may be used on 
EDX. Label processing may be bypassed, and non-standard » user* 

or ANSI labels are not supported. 
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Standard Labels 

Standard labels are fixed length 80-character records. There 
are three types of label records: 

• A volume label identifying the tape volume. 

• A header label preceding the data records. 

• A trailer label following the data records. 

The first four characters of each label type identify the par- 
ticular label record and its logical location. 



Volume label 
Header label 
Tra i ler labe 1 



VOL! at the beginning of the volume 

HDR1 at the beginning of a file 

E0F1 at the end of the file 
E0V1 at the end of a volume in a 
mu It i volume file 



If two or more files are written on a single volume* each file 
has a header and trailer label. The volume label exists only 
once at the beginning of the volume. 

Provision is made in the IBM standard label set for additional 
standard volume labels (V0L2,V0L8) and additional standard 
file labels (HDR2 HDR8, E0F2 E0F8, and E0V2 E0V8). These 
labels are allowed but are not processed. User labels are also 
bypassed . 

The Event Driven Executive system does not provide EOV process- 
ing. However? you may perform EOV processing. See "Processing 
the EOV Condition" on page 326 for a detailed example. 

In general, the following factors apply to most volume layouts: 

• When standard labels are written on a volume, the first 
record must be the volume label (V0L1). 

• When labeled files are written, a header label (HDR1) pre- 
cedes each file and a trailer label follows each file (E0F1 
or E0V1) . 
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Labeled Tape Layouts 



Single File Volume 



V0L1 



HDR1 



TM 



X DATA RECORDS 



TM 



E0F1 



TM 



TM 



Multi— file Volume 



V0L1 



HDR1 



TM 



X DATA RECORDS 
(FILE 1) 



TM 



E0F1 



TM 



HDR1 



TM 



Y DATA RECORDS 
(FILE 2) 



TM 



EOF1 



TM 



TM 



Labeled Tape Processing 

Labels are processed (checked or written) when files are opened 
ore losed . 

On output tapes expiration date checking is done if the system 
contains time-of-day support. 

On input or output tapes* an error will occur during file 
search if! 

• A non-standard label is found 

• An non-labeled file is found 

• A specified data set is not found 



236 SC34-0312 



When a tape is varied online, the tape unit is defined for 
standard labels. The V0L1 is read and the tape is positioned at 
the HDR1 for the desired file number according to the following 
formula : 

SPACE FILE FORWARD = (n-l)*3 

where n is the specified file number 

Note : If the file number being searched for is not on the 
volume mounted, the positioning of the tape is unpredictable. 
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Labeled Tape Label Fields 

The following charts show the layout of the tape label record 
and the contents of each after the $TAPEUT1 utility has written 
the label (refer to Utilities* Operator Commands* Program 
Preparation* Messages and Codes for details on $TAPEUT1). 
These charts also show which fields are verified ($VARYON veri- 
fies V0L1, OPEN verifies HDR1) and initialized ($TAPEUT1) 
during standard label processing. 



V0L1 






INITIALIZED 




NAME 


BYTES 


CONTENTS 


VERIFIED 


LABEL IDENTIFIER 


3 


'VOL 1 


YES 


VOL LABEL NUMBER 


1 


» 1 ' 


YES 


VOLUME SERIAL 


6 


'XXXXXX' 


YES 


VOLUME SECURITY 


1 


•0' 


NO 


DATA FILE DIRECTORY 


10 


BLANKS 


NO 


RESERVED 


10 


BLANKS 


NO 


RESERVED 


10 


BLANKS 


NO 


OWNER NAME 


10 


NAME 


NO 


RESERVED 


29 


BLANKS 


NO 
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HDR1 






INITIALIZED 






NAME BYTES 


CONTENTS 


VERIFIED 


LABEL IDENTIFIER 


3 


f HDR f 




YES 


FILE LABEL NUMBER 


1 


' l f 




YES 


FILE IDENTIFIER (DSN) 


17* 


DATASET NAME 


(DSN) 


YES 


FILE SERIAL NUMBER 


6 


f XXXXXX f 




NO 


VOLUME SEQUENCE NUMBER 


4 


'0001' 




NO 


FILE SEQUENCE NUMBER 


4 


'OONN* 




NO 


GENERATION NUMBER 


4 


BLANKS 




NO 


GENERATION VERSION 










NUMBER 


2 


BLANKS 




NO 


CREATION DATE 


6 


YYDDD 




NO 


EXPIRATION DATE 


6 


YYDDD 




YES 


FILE SECURITY 


1 


1 0' 




NO 


BLOCK COUNT 


6 


'OOOOOO 1 




NO 


SYSTEM CODE 


13 


» IBMEDXS1 1 




NO 


RESERVED 


7 


BLANKS 




NO 



E0F1 






INITIALIZED 






NAME BYTES 


CONTENTS 


VERIFIED 


LABEL IDENTIFIER 


3 


'EOF 1 




YES 


FILE LABEL NUMBER 


1 


■l 1 




YES 


FILE IDENTIFIER (DSN) 


17* 


DATASET NAME 


(DSN) 


YES 


FILE SERIAL NUMBER 


6 


'NNNNNN' 




NO 


VOLUME SEQUENCE NUMBER 


4 


'0001' 




NO 


FILE SEQUENCE NUMBER 


4 


'00NN f 




NO 


GENERATION NUMBER 


4 


BLANKS 




NO 


GENERATION VERSION 










NUMBER 


2 


BLANKS 




NO 


CREATION DATE 


6 


BLANKS 




NO 


EXPIRATION DATE 


6 


BLANKS 




YES 


FILE SECURITY 


1 


f 0' 




NO 


BLOCK COUNT 


6 


f NNNNNN f 




NO 


SYSTEM CODE 


13 


1 IBMEDXSl f 




NO 


RESERVED 


7 


BLANKS 




NO 



* EDX supports an eight byte no n— blank DSN. The remaining 
nine bytes of the DSN field are not supported by EDX. 
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E0V1 






INITIALIZED 




NAME BYTES 


•CONTENTS 


VERIFIED 


LABEL IDENTIFIER 


3 


'EOV 


YES 


FILE LABEL NUMBER 


1 


'1 T 


YES 


FILE IDENTIFIER (DSN) 


17* 


DATASET NAME 


(DSN) NO 


FILE SERIAL NUMBER 


6 


'NNNNNN' 


NO 


VOLUME SEQUENCE NUMBER 


4 


'0001 f 


NO 


FILE SEQUENCE NUMBER 


4 


'OONN' 


NO 


GENERATION NUMBER 


4 


BLANKS 


NO 


GENERATION VERSION 








NUMBER 


2 


BLANKS 


NO 


CREATION DATE 


6 


BLANKS 


NO 


EXPIRATION DATE 


6 


BLANKS 


NO 


FILE SECURITY 


1 


T 0' 


NO 


BLOCK COUNT 


6 


'NNNNNN' 


NO 


SYSTEM CODE 


13 


•IBMEDXS1 ' 


NO 


RESERVED 


7 


BLANKS 


NO 



* EDX supports an eight byte non— blank DSN. The remaining 
nine bytes of the DSN field are not supported by EDX. 
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Non-Labeled Tapes 



Non-labeled tape volumes consist of files separated by 
tapemarks. An additional tapemark may be placed at the begin- 
ning of the tape . 

Non-labeled tapes allow the exchange of tapes with unknown 
configuration. The disadvantages of using non-labeled tapes 
are loss of control and the difficulty of maintaining data 
security. The following illustrations depict the non-labeled 
tape layouts that are supported. 
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Non-Labeled Tape Layouts 



tapemark before the data records (one file) 



TM 


: 


: DATA 


RECORDS 


TM 


TM 



no tapemark before the data records (one file) 



X DATA RECORDS 



TM 



TM 



tapemark before the data records (multiple files) 



TM 



X DATA RECORDS 
(FILE 1) 



TM 



Y DATA RECORDS 
(FILE 2) 



TM 



TM 



no tapemark before the data records (multiple files) 



X DATA RECORDS 
(FILE 1) 



TM 



Y DATA RECORDS 
(FILE 2) 



TM 



TM 
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Non-Labeled Tape Processing 



The tape is checked to verify that it is not a standard labeled 
tape. The tape support positions the tape to the requested 
file sequence. If the volume starts with a tapemark, the tape 
is positioned after the tapemark. In all cases, the tape is 
positioned at the first data record in the file. 

When a tape drive with the non-labeled attribute is varied 
online, the first record is examined. If the record is a V0L1, 
the $VARYON will fail. If the record is not a V0L1 or a 
tapemark, the tape is backspaced. If you specify a file number 
greater than 1, the tape is positioned according to the formu- 
la: 

SPACE FILE FORWARD = n-1 

where n is the specified file number. 

Note : If the file number being searched for is not on the 
volume mounted, the positioning of the tape is unpredictable. 
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Bypass Label Processing (BLP) 

Use the bypass label processing option when you want to access 
the tape but do not want the labels to be processed by EDX. 
When the tape unit is defined for BLP* no initial tape motion 
occurs. The application program must move the tape to the first 
data record. Recognizing and processing labels and tape marks 
is the responsibility of the application program. Event Driven 
Executive support simply transfers records; no other process- 
ing i s performed . 

When a tape unit defined for bypass label processing (BLP) is 
varied online* no tape motion occurs. If a file number greater 
than 1 is specified* the tape is positioned according to the 
formula : 

SPACE FILE FORWARD = n-1 

where n is the specified file number. 

Note : If the file number being searched for is not on the 
volume mounted* the positioning of the tape is unpredictable. 

For an example of BLP processing see "Sample Use of BLP to 
Access All Label Fields" on page 331. 



TAPE RECORDS 



Tape data sets may contain records of differing sizes* called 
variable length records and undefined length records . Applica- 
tion programs can write variable length records by specifing 
the size of each record on the WRITE statement and can read them 
by specifing the maximum size record on the READ statement. 
After the READ statement is complete* the TCB contains the 
actual size of the record. 

The $TAPEUT1 utility also processes variable length records. 



Variable Length Records 



The first four bytes of each variable length record contains a 
two-byte hexadecimal value defining the actual length of the 
record followed by two bytes of zeros (reserved for future 
use). The length value includes the four- byte header. These 
records are written and read as described in "Tape Records." 
The application program can obtain the length of the record 
read from the record itself. You are responsible for placing 
the header value in each record when it is written. 



244 SC34-0312 



Undefined Length Records 



Each undefinied length record can be of a different size up to 
some maximum established by mutual agreement among the appli- 
cations which must process the data. Processing is the same as 
described in "Tape Records" on page 244. 



TAPE LOG ENTRIES 



The error log entry for the 4 9 6 9 tape device is similar to all 
other I/O device log entries except for seven words of depen- 
dent i nf ormat i on : 

• V0L1 - The V0L1 of the standard label tape or the ID for a 
no-label or BLP tape (3 words). 

• ID - the ID, assigned by system generation, of the tape 
device (3 words ) . 

• Flags - A one-word entry whose bits are defined as follows: 



BIT 



CONTENTS 




1 
2 
3 
4-5 



6-7 



8-15 



Ignore expiration date (1 = Yes, = no) 
Must be zero 

Data set expiration (1 = no, = yes) 
Output has occurred (1 = yes, = no) 
Density (defined by system generation): 

00 = Undefined 

01 = 800 BPI only 

10 = 1600 BPI only 

11 = Dual dens i ty 
Label type : 

00 = Undefined 

01 = Standard label 

10 = Bypass label processing 

11 = No label 

Logical file number that was open at the 
t i me of the error 
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CHAPTER 12. USING PARTITIONED DATA SETS 

The display processor utility program uses a utility program* 
$PDS» to make partitioned data sets available for its use. 
Your programs can also use $PDS to access these members (for 
example* report data members and realtime data members). $PDS 
can also be used by your programs for all available functions. 

Execution of $PDS by your program is through the use of the LOAD 
instruction. $PDS can be used as an overlay program as well as 
a normally loaded extension of an application program. $PDS 
a 1 lows you to : 

Open a member 

Allocate a member for a fixed number of records 

Allocate a member for the maximum number of records 

Release unused space from a member 

Delete a member 

Store the next record 

Store a record 

Fetch a record 

Members can be created by these methods? 

1. Use $DIUTIL program 

• Data member* member codes 4*5*6 

• User data members* member codes 7*8*9 

• User defined members* member codes 10 and up 

• Member codes 1*2*3 cannot be created by $DIUTIL 

2. Use $DIC0MP program 

• Report member* member code 1 

• Graphic member* member code 2 

• Graphic 3D member* member code 3 

3. Use $PDS 

• All member types 
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Member codes are assigned as follows 



1 Report member 

2 Graphic member 

3 Graphic member 3D 

4 Report data member 

5 Plot curve data member 

6 Realtime data member 
7,8,9 User defined data members 

10-n User def i ned 



Member types 1,2,3 store commands that will be used by $DIINTR 
to create a display. Member types 4,5,6 contain data that is 
saved by your application program. Member types 7,8,9 have the 
same format as member types 4,5,6 but are for use by applica- 
tion programs. Member types 10 and up are for use by applica- 
t i ons programs . 

Member types 4 through 9 are special members because they 
contain multiple records with a length of 1 to 32767 bytes. 
This feature allows the application program to Fetch and Store 
data by record number within a member. This technique could be 
used by an application program to update data members defined 
with the Display Utility Program Set. 



Data Set Allocation 



A data set that is to be used by $PDS must be allocated using 
$DISKUT1. Records should be allocated for the directory as well 
as members. Each record can contain eight directory entries 
except the first record which can contain seven. For example, 
if space is required for 40 members each with five records of 
space, you should allocate 206 records, 200 for members and six 
for the directory. 

After a data set has been defined by $DISKUT1, it must be for- 
matted for use by $PDS. $DIUTIL functions IN (Initialize), AL 
(Allocate), and BU (Build Data) are used for this purpose. 
$PDS can also be used to allocate members. Once members are 
allocated, they can be used by the application program. The 
$ D I U T I L program is used to maintain of the data set. 
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Data Set Format 

The data set to be used with $PDS consists of 

• Di rectory area 

• Member area 

Directory Area 



The first entry in the directory describes the data set and has 
the following format? 



Byte 



Usage 



0-1 
2-3 
4-5 
6-7 

8-15 



Next available record number for member 

Total size of data set in records 

Number of next directory entry 

Total available directory entries 
(allocated and unallocated) 

Unused space 



Each succeeding directory entry is 16 bytes with the following 
format : 
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Byte Usage 



0-7 EBCDIC member name 

8-9 First record number (relative to start of 
data set ) 
10-11 Number of records in member 
12-13 Member code 
14-15 User code or clear screen indicator 



Member Code (bytes 12-13) 



-1 Deleted member 

Available space 

1 Report member 

2 Graphic member 

3 Reserved 

4 Report data member 

5 Plot curve data member 

6 Realtime data member 

7-9 User defined data member 

10-n User defined members 



Users code (bytes 14-15) 

Defined by you and stored by $PDS allocate 
or value of 1 if clear screen (ESCFF) is not 
to be sent on $DIINTR invocation. 



$ D I U T I L can be used to display this data for reference. 



Member Area 



Each member type has a unique format 



Member types 1-3 Display Control Member 



No specific format is defined. The data is freeform* 
generated by the SDICOMP Utility Program. 
See Display Control Member format for information 
as to content of these members. 
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Member Type 4 



Report Data Member 



Byte 



Usage 



0-7 
8-9 
10-11 
12-13 
14-15 
16-n 



Unused 

Number of records 

Record length in bytes (1-132) 

Number of records available 

Unused 

Data Area 



Member Type 5 



Plot Curve Data Member 



Byte 



Usage 



0-1 

2-3 

4-5 

6-7 

8-9 

10-11 

12-13 

14-15 

16-n 



X Axis Range 

Y Axis Range 

X Base Line Value 

Y Base L i ne Value 
Number of records 

Record length in bytes (1-32767) 

Number of records available 
Unused 
Data Area 



Note : Each record can be larger than 4 bytes, however relative 
bytes 0,1 must contain the X-coordinate value and bytes 2,3 
must contain the Y-coordinate value. 



Member Type 6 



Realtime Data Member 



Byte 



Usage 



0-7 
8-9 
10-11 
12-13 
14-15 
16-n 



Unused 

Number of records 

Record length in bytes (must be 16) 

Number of records available 

Unused 

Data Area 
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Member Type 7,8,9 User Defined Data Member 



Byte Usage 



0-7 Unused 

8-9 Number of records 

10-11 Record length in bytes (1-32767) 

12-13 Number of records available 

14-15 Unused 

16-n Data Area 



Member type 10-n User Defined Member 



Display Control Member Format 



Each of the display profile elements contained in the control 
members* type codes (1,2,3), is shown in this section. You may 
wish to use $PDS to access a control member. The application 
program could then generate a display profile command string 
and use $ D 1 1 N T R to display the results. Following is the for- 
mat of each of the display profile elements. 



LB Display Characters 



Byte Bits Value Content 



0-3 1 Displaycharacterscode 

4-7 Unused 

1 0-7 1-72 Number of characters to 

display 
2-n 0-7 EBCDIC EBCDIC data to display 
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MP Move Pos 1 1 i on 



Byte 



Bits 



Value 



Content 



0-3 2 Move Pos i t i on ^Code 

0-1 4-7/0-7 0-1023 X Coordinate Value 
2-3 0-7 0-1023 Y Coordinate Value 



For 3D Members 



Byte 



Bits 



Value 



Content 



0-3 2 Move Position Code 

0-1 4-15 Unused 

2-3 0-15 -32768 - +32767 X Coordinate Value 

4-5 0-15 -32768 - +32767 Y Coordinate Value 

6-7 0-15 -32768 - +32767 Z Coordinate Value 



LI Draw Line 



Byte 



Bits 



Value 



Content 



0-3 3 Draw Line Code 

0-1 4-7/0-7 0-1023 X Coordinate Value 

2-3 0-7 0-1023 Y Coordinate Value 
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For 3D Members: 



Byte 



Bits 



Value 



Content 



0-3' 3 Move Position Code 

0-1 4-15 Unused 

2-3 0-15 -32768 - +32767 X Coordinate Value 

4-5 0-15 -32768 - +32767 Y Coordinate Value 

6-7 0-15 -32768 - +32767 Z Coordinate Value 



DR 



Draw Symbol 



Byte 



Bits 



Value 



Content 






0-3 





4-7 


1 


0-7 


2-3 


0-7 



2 
2 

2-3 



0-5 
6 

7/0-7 



4 Draw Symbol Code 

1-15 Symbol ID 

0-255 Symbol Modifier 

0-32767 Users Symbol Number 



OR 


0-1 

0-508 



Unused 

Start top (0) or bottom (1) 

for Arc 
# of Y units in Arc 



VA 



Display Variable 



Byte 



Bits 



Value 



Content 





1 
1 
2-3 

4 
5 



0-3 
4-7 
0-3 
4-7 
0-7 

0-7 
0-7 



5 Display Variable Code 

0-7 Word Number within record 

0-15 Function Code 

0-3 Type Code 

1-32767 Record number in Realtime 

Data Member 

1-40 Field Width 

0-39 Number of Decimals 
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JP 


Jump 








Byte 


Bits 




Value 


Content 





0-3 




6 


Jump Code 





4-7 




0-7 


Word number within record 


1 


0-7 




0-2 


J ump Mod i f i er 
= Uncond i t i ona 1 
l=Zero 
2=Non Zero 


2-3 


0-7 


1- 


-32767 


Record number in Realtime 
Data Member 


4-5 


0-7 


0- 


-32767 


Jump to Address (offset in 
Words from beginning of 
Control Member) 



DI 



Direct Output to Another Device 



Byte 



Bits 



Value 



Content 





1 
2-9 



0-3 
4-7 
0-7 
0-7 



8 


EBCDIC 



Direct Output Code 

Unused 

Unused 

8 characte-r name of output 

device. Refer to ENQT 

Instruct i on 



PC 



Plot Curve from Plot Curve Data Member 



Byte 



Bits 



Value 



Content 





1 

2-9 



0-3 9 

4-7 

0-7 or EBCDIC 



0-7 



EBCDIC 



Plot Curve Code 

Unused 

EBCDIC character for plot 

i f character plot 

8 character member name of 

a plot data member 
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** 



Display Report Line Items 



Byte 



Bits 



Value 



Content 





1 
2-9 



0-3 
4-7 
0-7 
0-7 



10 Display Report Line Items 
Unused 
Unused 
EBCDIC 8 character member name of 
a report data member 



AD 



Advance X»Y 



Byte 



Bits 



Value 



Content 



0-3 11 Advance X,Y code 

0-1 4-7/0-7 0-1023 X advance value (adjusted 

by +512) 
2-3 0-7 0-1023 Y advance value (adjusted 

by +512) 



For 3D Members: 



Byte 



Bits 



Value 



Content 



0-3 11 Advance X,Y,Z Code 

0-1 4-7/0-7 0-1023 X Advance Value (adjusted 

by +512) 
2-3 0-7 0-1023 Y Advance Value (adjusted 

by +512) 
4-5 0-7 0-1023 Z Advance Value (adjusted 

by +512) 
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IM 



Insert Member 



Byte 



Bits 



Va 1 ue 



Content 





1 
2-9 



0-3 
4-7 
0-7 
0-7 



12 Insert Member Code 
Unused 
Unused 
EBCDIC 8 character member name of 
a central member 



LR 



Draw Line Relative 



Byte 



Bits 



Value 



Content 



0-3 13 Draw Line relative code 
0-1 4-7/0-7 0-1023 Delta X Value (adjusted by 

+ 512) 
2-3 0-7 0-1023 Delta Y Value (adjusted by 

+ 512) 



For 3D Members: 



Byte 



Bits 



Value 



Content 



0-3 13 Draw Line Relative Code 
0-1 4-7/0-7 0-1023 Delta X Value (adjusted by 

+ 512) 
2-3 0-7 0-1023 Delta Y Value (adjusted by 

+ 512) 
4-5 0-7 0-1023 Delta Z Value (adjusted by 

+ 512) 
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RT 



Change Realtime Data Member Name 



Byte 



Bits 



Value 



Content 



0-3 



14 






4-7 





1 


0-7 





2-9 


0-7 


EBCDIC 



Change Realtime Data Member 

Code 

Unused 

Unused 

8 character member name of 

a new realtime data member 

(for VA and +P codes) 



TD 



Display Time and Data 



Byte 



Bits 



Value 



Content 



0-3 
4-7 
0-7 



15 





Display time and data code 

Unused 

Unused 
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Using $PDS in Your Program 



Access to the $PDS utility is through a LOAD instruction in 
your application program. The following example shows how to 
open a member. 



XYZ 



PROGRAM START, D5=(??) 



START EQU 



READTEXT #MCB, 'ENTER MEMBER NAMES'. 



LOAD 



$PDS,$MCB,DS=(DS1),EVENT=#PDS, 
LOGMSG=NO 



WAIT 
IF 



#PDS 

(#PDS,NE,-1), GOTO, ERROR 



* NORMAL PROCESSING OF OPENED MEMBER * 



READ 



MBR,BUFF 



WRITE 



MBR,BUFF 



PROGSTOP 



BUFF 
$MCB 



DATA 
DATA 



128F'0' 
A(#MCB) 



DISK I/O BUFFER 

POINTER TO MEMBER CONTROL 

BLOCK 



#MCB TEXT 
#MCBCMD DATA 
#MCBDSA DATA 



LENGTH=8 
F T l f 
A(MBR) 



MEMBER NAME 

$PDS COMMAND(OPEN) 

ADDRESS OF DSCB 
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tMCBDTO DATA F'O f Data Field 

#MCBDT1 DATA F'O' Data Field 1 

#MCBDT2 DATA F'O' Data Field 2 

#MCBDT3 DATA F f f Data Field 3 



DSCB DS#=MBR,DSNAME=DUMMY,VOLSER=DUMMY 



ENDPROG 
END 



Member Control Block 



The member control block that is passed to the $PD5 utility 
program by the use of the PARM facility is a 20 byte field. This 
member control block (MCB) is filled in by your application 
program. The format of the MCB is as follows: 




0-7 EBCDIC Member Name 

8-9 $PDS Command (see below) 

10-11 Address of Callers DSCB 

12-19 Data field through 3 (see below) 



$PDS Commands (bytes 8-9) 



Command Function 



1 Open Member 

2 Allocate Member 

3 Allocate Member (Maximum Space) 

4 Re lease Space 

5 -Delete Member 

6 Store Next Record 

7 Store Record 

8 Fetch Record 
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Command Descriptions 



Open Member 



The member specified in bytes 0-7 of the MCB is 
located and the DSCB specified in bytes 10-11 is 
filled in to point to the member. 

Allocate Member 

The member specified in bytes 0-7 of the MCB is 
dynamically allocated with the parameter specified 
in bytes 14-19. 

Allocate Member (maximum space) 

The member specified in bytes 0-7 of the MCB is 
dynamically allocated with the parameter specified 
in bytes 16-19. Maximum space is allocated. 

Release Space 

The member specified in bytes 0-7 of the MCB is 
located and unused space is returned to the avail- 
able space in the data set. Bytes 14-15 must contain 
the number of records that the member will contain. 

Delete Member 

The member specified in bytes 0-7 of the MCB is 
located and marked for deletion. Note: the space 
occupied by the deleted member is NOT returned to the 
available space in the data set. Use the utility 

$DIUTIL to reclaim deleted space. 

Store Next Record 

The member specified in bytes 0-7 of the MCB is 
located. The member header is used to determine 
which record is next and data is stored in that 
record. Your data buffer address is located in bytes 
14-15 of the MCB. 

Store Record 

The member specified in bytes 0-7 of the MCB is 
located. The record specified in bytes 12-13 is 
located and the data is stored in that record. Your 
data buffer address is located in bytes 14-15 of the 
MCB. 

Fetch Record 

The member specified in bytes 0-7 of the MCB is 
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located. The record specified in bytes 12-13 is 
located. All the data is retrieved and stored in 
your data buffer. The data buffer address is located 
in bytes 14-15 of the MCB. 

Data Field through Data Field 3 must contain modifier infor- 
mation for the various $PDS commands. Also, these areas con- 
tain data following the action taken by the $ P D S program. The 
following table shows the data required prior to the execution 
of $PDS and the data returned following the execution of $PDS. 



Before Execution of $PDS: 



COMMAND 



DATA WORDS 

1 2 



1-Open 



N/A 



N/A 



N/A 



N/A 



2-A1 locate 



N/A 



Records 



Member 
Type Code 



User 
Code 



3-Allocate Max 



N/A 



N/A 



Member 
Type Code 



User 
Code 



^-Release 



N/A 



Records 



N/A 



N/A 



5-Delete 



N/A 



N/A 



N/A 



N/A 



6-Store Next 



N/A Data Buffer 
Address 



N/A 



N/A 



7-Store 



Record Data Buffer 
Address 



N/A 



N/A 



8-Fetch 



Record Data Buffer 
Address 



N/A 



N/A 



Note : N/A = Not Applicable 
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After Execution of $PDS: 



DATA WORDS 

1 2 



COMMAND 



1-Open 



1st Record Records 



Member 
Type Code 



User 
Code 



2-A1 locate 



1st Record Records 



Member 
Type Code 



User 
Code 



3-Allocate Max 1st Record Records 



Member 
Type Code 



User 
Code 



4-Re lease 



N/A 



N/A 



N/A 



N/A 



5-Delete 



N/A 



N/A 



N/A 



N/A 



6-Store Next 



Record Data Buffer Records 
Address In Member 



N/A 



7-Store 



Record Data Buffer Records 
Address In Member 



N/A 



8-Fetch 



Record Data Buffer Records 



N/A 



Note : N/A = Not Applicable 
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CHAPTER 13. DIAGNOSTIC AIDS AND FACILITIES 



THE SOFTWARE TRACE TABLE 



An analysis of the software trace table is the first step in the 
determination of a software problem. This table contains pro- 
gram check* soft exception* and machine check trace data* and 
offers information on the types of errors that have been occur- 
ring. This information may lead to more efficient utilization 
of other problem determination aids such as a STRAP, $ D U M P , 
$DEBUG, $D, and the hardware error log. The structure of this 
table is seen in Figure 42 on page 267. 

When an errors occurs, an entry is placed into the next avail- 
able trace table slot. This entry includes a state variable, 
the TCB address, the Processor Status Word (PSW), the Storage 
Address Register (SAR), and the Level Status Block (LSB). After 
the table is filled, the oldest entry is overlaid by the new 
entry. The second word of the control table points to the old- 
est entry. Hence the newest entry precedes the oldest. 

Software trace table support is included at system generation 
time by adding an INCLUDE CIRCBUFF entry to the link control 
data set ($LNKCNTL). The default trace table has room for 
eight fifteen word entries. This number may be modified if 
you : 

• Alter the replication factor on the CIRESTR variable (in 
CIRCBUFF source module) by a multiple of the entry size to 
reflect the new trace entry space desired 

• Reassemble CIRCBUFF module 

• Relink the supervisor 

The $ D operator command may be used to obtain a dump of the 
software trace table information. Upon issuing the $D Command, 
you will be prompted for: 

1. Origin. ENTER 0. 

2. The beginning address of the trace table. Enter the 
CIRCBUFF entry point from the system generation link list- 
i ng . 

3. Number of addresses to be displayed. This value is: 
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(10 + (30n))/2 

Where n equals the number of entry spaces that 
you have allowed for. The default for n equals 8. 
Therefore* the default number of addresses equals: 

(10 + (30x8))/2 = 250/2 = 125 

Example : The first entry in the trace table storage dump below 
reflects the following program check information as displayed 
on the console : 

PGM CHECK: 
PLP TCB PSW LSB 
6B00 0138 8002 1E6A 0000 88D0 6C30 6B7E 6C38 6C31 6C32 005C 00B8 00 



> $D 


















ENTER 


ORIGIN: 














ENTER 


ADDRESS, COUNT: 


62EE 


,125 








62EE 


. 62F8 


6370 


63E8 


0004 


001E 


0100 


0138 


8002 


62FE 


i 6C31 


1E6A 


0000 


88D0 


6C30 


6B7E 


6C38 


6C31 


630E 


' 6C32 


005C 


00B8 


0000 


0100 


0138 


8002 


6C31 


631E 


i 1E6A 


0000 


88D0 


6C30 


6B7E 


6C38 


6C31 


6C32 


632E 


• 005C 


00B8 


0000 


0100 


0138 


8002 


6C31 


1E6A 


633E 


0000 


88D0 


6C30 


6B7E 


6C38 


6C31 


6C32 


005C 


634E 


00B8 


0000 


0100 


0138 


8002 


6C31 


1E6A 


0000 


635E 


88D0 


6C30 


6B7E 


6C38 


6C31 


6C32 


005C 


00B8 


636E 


. 0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


637E 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


638E 


. 0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


639E 


. 0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


63AE 


0000 


0000 


0-0 


0000 


0000 


0000 


0000 


0000 


63BE 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


63CE 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


63DE 


0000 


0000 


0000 


0000 


0000 








ANOTHE 


ER DISPLAY? 
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ADDRESS CONTENTS VALUE DESCRIPTION 

62EE through Control table 62F8 Address of first entry 

62F5 6370 Address of next entry 

63E8 Address of end of table 

0004 Use count 

001E Size of each entry 

62F8 through A trace entry 01 State variable 

6315 00 Address key 

0138 TCB address 

8002 PSW 

6C31 SAR 

1E6A IAR 

0000 AKR 

88D0 LSR 

6C30 GPR0 

6B7E GPR1 

6C38 GPR2 

6C31 GPR3 

6C32 GPR4 

005C GPR5 

00B8 GPR6 

0000 GPR7 

6316 through 6333 A trace entry 
6334 through 6651 A trace entry 
6352 through 636F A trace entry 

* STATE VARIABLE VALUES: 

= no interupt in process 

1 = standard (default) processing 

2 = now processing task error exit 

3 = undef i ned 

Figure 42. Software Trace Table Structure 
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THE TASK ERROR EXIT FACILITY 



Check and Trap Handling - An Overview' 



During the execution of a task* exception conditions may arise 
either in the task itself or in the Series/1 hardware. These 
conditions are known as machine checks (indicating a hardware 
malfunction such as a storage parity check)* program checks 
(indicating a software malfunction such as a specification 
check)* and soft exception traps (indicating an unusual* but 
generally recoverable* software condition such as a floating- 
point exception). When any of these exceptions occurs* the 
processor saves its state in an area of storage set aside for 
that purpose by the supervisor and gives control to the super- 
visor through special entry points* one for each type of 
exception. For details of the hardware handling of exceptions* 
see the processor description manuals. 

The major goal of the supervisor in handling exceptions is to 
keep the system running. The usual response to program and 
machine check exceptions is to cancel the program that the 
offending task is apart of. The response for soft exception 
traps is to resume processing at the instruction following the 
one that caused the exception. 

The supervisor approach to exception handling* while appropri- 
ate for a large number of programs* is sometimes inadequate. 
For example* if your task shares resources (e.g. QCBs or ECBs) 
with a task in another program* when an error is encountered 
the supervisor will not release the resources. If your task 
were unable to continue because of the error* it may be neces- 
sary to release the resources and inform the other task of the 
error . 

Whenever an exception occurs in a task with a task error exit* 
the supervisor* instead of processing the exception in the usu- 
al way* stores the hardware status at the time of the exception 
in a block of storage designated by the task. It then passes 
control to the task at its task error exit entry point. The 
task's error routine is then in control and must interrogate 
the stored hardware status to make an appropriate response. 

Note that a task error exit routine is a part of the task it 
serves - the supervisor passes control to it at the task level; 
it is not a subroutine of the supervisor's error handler. 
There are important ramifications of this fact. The registers 
(including the EDL software registers, #1 and #2) used by the 
error exit routine are those normally used by the task. To 
resume executing the task following corrective action by task 
error exit* simply branch (if in Series/1 instruction mode) or 
GOTO (if in EDL mode) the appropriate location. If the error 
exit is unable to recover from the exception* it should issue a 
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PROGSTOP instruction. 



Using the Task Error Exit Facility in Your Task 



Linkage Conventions 



To make use of the Task Error Exit facility in your task* you 
must code a small control block and the error exit routine. In 
addition* you must set aside the block of storage that will be 
filled with the hardware status when an exception occurs. 

The control block* called the task error exit control block 
(TEECB), provides the linkage between the supervisor and your 
error exit. The TEECB must be aligned on a fullword boundary. 

To allow the supervisor to find your TEECB* you should code its 
address as the value of the ERRXIT keyword parameter of the 
PROGRAM or TASK EDL statement that defines your task. 

The format of the TEECB is as follows: 



TEECB DS OF 

TEECTL DC X'0002* 

TEESIA DC A(XITRTN) 

TEEHSA DC A(HSA) 



TASK ERROR EXIT CONTROL BLOCK 



.SI A. 
HSA 



In the first word (TEECTL), bits 0-7 are reserved and must be 
zero. Bits 8-15 state the number of data words that follow. 
This value must be two. The second word (TEESIA) contains the 
address of the starting instruction of your Error Exit routine. 
The last word (TEEHSA) contains the address of the block of 
storage you have reserved to receive the hardware status when 
an exception occurs. This block is called the Hardware Status 
Area (HSA) and is 24 bytes long. 

The format of the HSA is: 



HARDWARE STATUS AREA 



HSA 


DS 


OF 


HSAPSW 


DS 


IF 


HSALSB 


EQU 


* 


HSAAKR 


DS 


IF 


HSAIAR 


DS 


IF 


HSALSR 


DS 


IF 


HSAREGS 


DS 


8F 



ALIGN ON FULL WORD BOUNDARY 
PROGRAM STATUS WORD 
LEVEL STATUS BLOCK 
ADDRESS KEY REGISTER 
INSTRUCTION ADDRESS REGISTER 
LEVEL STATUS REGISTER 
GENERAL REGISTERS 0-7 



The contents of the various HSA locations (PSW,AKR»Etc*) will 
contain* at entry to your error exit routine* the values that 
were in the corresponding hardware registers at the time of the 
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exception. Upon entry to your error routine* general registers 
1 and 2 will have been set to the SIA of your routine and to the 
address of your task's TCB, respectively. 

Since entry to your error exit routine is made at the Event 
Driven Language level* the contents of the remaining general 
registers is dependent upon what instructions are executed. 



What Happens When an Exception Occurs 

If an exception (ma chine check, program check or soft exception 
trap) occurs during the execution of your task and you have 
specified a task error exit* as outlined above, the supervisor 
locates your TEECB. It then uses the TEEHSA pointer to locate 
your HSA and stores the hardware status information in it. 
Next, it retrieves the TEESIA pointer and sets it to zero to 
prevent recursive exceptions. Finally, it starts your task at 
the address it retrieved if that address is non-zero. If the 
TEESIA is zero or an except ion occurs during any of this proc- 
essing (if, for example, the TEECB is invalid), the supervisor 
treats the error as though no task Error Exit had been speci- 
fied. Note that even if the TEESIA is zero, the supervisor 
still attempts to store the hardware status. 

Since the supervisor zeroes TEESIA prior to starting your task, 
your error exit routine only gets control on the first 
exception that occurs, unless your routine restores TEESIA to 
its original condition. Zeroing TEESIA allows the supervisor 
to handle exceptions that occur in error exit routines, thus 
preventing recursion in the error handling process. When you 
implement a task error exit, do not restore TEESIA until the 
error exit routine has completed. 



I/O ERROR LOGGING 



The Event Driven Executive provides the capability to record 
device I/O errors into a log data set on disk or diskette and to 
display the log data set. The support is provided with a set of 
utilities and subroutines. 



Recording the Errors 



To activate I/O logging, the utility SLOG is loaded into any 
partition. The logging function can be deactivated, reacti- 
vated, and terminated after it becomes active. 
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The logging function is performed in three steps. First, the 
device handler gathers all the pertinent information required 
by the LOG interface. Among the required parameters is the 
address of the log data. This parameter points to the device 
data block (DDB) containing the I D C B , D C B s , and device status 
to be logged. Optionally, you may provide the default log 
record format or a control block containing all the necessary 
information. Second, control is passed to the logging subrou- 
tines which build a log record by copying the DDB and other 
parameters into a buffer. The log record is then placed on the 
log queue, and control is returned to the caller after the log- 
ging utility is posted. Last, the utility $LOG, having been 
posted, receives the log entry from the queue and writes it to 
the log data set. 

The I/O error logging function can be called by both system and 
application programs. If a program requires logging but is not 
link- edited with the system, then the modules $DEVLOG and 
$$RETURN must be link- edited with the program. There are two 
interfaces to perform logging. The LOG macro is provided for 
programs that are assembled with $S1ASM. A similar interface 
using the USER instruction is provided for use with Event Driv- 
en Language and is not available to programs link-edited with 
the system. The interfaces available for performing I/O error 
logging are described below. 



The LOG Macro 



The LOG macro is used to generate a BAL instruction (using R7) 
to the routines that perform the logging function. The macro 
also expands a parameter list which can be modified at exe- 
cution time by using a set of equates. The equates are gener- 
ated by coding the LOG macro with the TYPE=EQUATES parameter 
specified. Before a call is made to the LOG function from a 
task, the 0P1 key must have the storage key value of the TCB and 
the 0P2 key must be equal to the ISK key. If the LOG function is 
called from as the result of an interrupt, then the 0P2 key must 
have a zero value. The caller's registers, except R7, are 
restored when control is returned to the calling program. 



Syntax 
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Label LOG log type > da ta type t da taaddr » 
datakey>devaddr> i i b > intcc» 
REQTYPE=,TYPE=,RETURN=,P1=,P2=, 
P3=,P^=,P5=,P6=,P7= 

Required: logtype>datatype>dataaddr»datakey>devaddr 
De f au 1 ts ' None 
Indexab le ' None 



Operands Description 

logtype Indicator of the type of log record. Use one of the 
following va 1 ues : 

• $SE - Soft error (device recoverable) 

• $HE - Hard (unrecoverable) error 

• $RE - Software recoverable error 

PI names a byte field which can be modified at exe- 
cution time using the above values. 

datatype Indicator of the type of control block data being 
logged. The following values are used by the Event 

Driven Executive supervisor. 

$ L T E R M - For terminal control block 
$49789 - For terminal control block 
$49734 - For terminal control block 
$LDISK - For disk and diskette control block 
$LDISK1 - For disk and diskette control block 
For tape control block (Version 2.0 



$L4969 
only) 

$LBSC 

$LDFLT 



For BSC control block 

For the default log data format 



P2 names a byte field which can be modified at exe- 
cution time using the above values. The values 128 
to 255 are reserved for your control blocks. 
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dataaddr The address of the log data. P3 names a two-byte 
field which can be modified at execution time. 

datakey The address space key (0-7) of the log data address. 
P 4 names a one-byte field which can be modified at 
execut ion time. 

devaddr The device address. P5 names a byte field which can 
be modified at execution time. 



i ib 



The interrupt information byte. This is an 
optional parameter which should be specified only 
if the IIB is not found in the log data. P6 names a 
byte field which can be modified at execution time. 



i n tec 



The condition code presented by the hardware when 
the I/O interrupt was accepted. This is an optional 
parameter which should be specified only if the 
condition code is not found in the log data. P7 
names a byte field which can be modified at exe- 
cution t i me . 



REQTYPE= 



The caller's execution state 



IA indicates that the call was made as the 
result of an interrupt. 

TASK indicates that the call was made from a 
task . 



TYPE = 



Specify EQUATES to indicate that only the list of 
equates for setting the various parameter values is 
provided. Specify DSECT to generate both the 
equates and a DSECT. 



RETURN= Specify a label which is assigned to the location in 
the log parameter list containing the return 
address. The two-byte return address is initialized 
with the address of the location following the 
parameter list. The return address may be modified 
at execution time by moving the desired return 
address into the location addressed by the label 
specified for this parameter. 



Passing Control to the Log Routines 

To allow the log function to be called from the Event Driven 
Language* the USER instruction can be used to pass control to 
the log routines. In the calling sequence you must pass cer- 
tain parameters which are similar to those specified in the LOG 
macro. When a specific equate value must be coded for a parame- 
ter, generate the equates by coding COPY LOGEQU or LOG 
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TYPE=EQUATES. As with the LOG macro, the parameters may be 
modified at execution time. Note that all parameters are two- 
byte fields, unlike the parameters in the LOG macro. 



USER $USRLOG, PA RM=(log type, datatype, 
dataaddr,datakey, devaddr) 



Operands 
logtype 



datatype 



dataaddr 

datakey 

devaddr 



Descr i p t i on 

Indicator of the type of log record. Use one of the 
f o 1 lowi ng values : 

1. $SE - Soft error (device recoverable) 

2. $HE - Hard (unrecoverable) error 

3. $RE - Software recoverable error 

ndicator of the type of control block data being 
ogged. The following values are used by the Event 
Driven Executive. 

$LTERM - For terminal control block 

$LDISK - For disk and diskette control block 

$LHSTCOM - For HOSTCOMM control block 

$LBSC - For BSC control block 

$LTIMER - For timer control block 

$LPI - For PI control block 

$LDI - For digital input control block 

$ L D - For digital output control block 

$4969 - For tape control block (Version 2.0 
only) 

The address of the log data. 

The address space key of the log data address. 

The device address. 
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In order to make the invocation of the log function reentrant* 
you may need to disable the system while your program is modi- 
fying the parameter list. Note that the logging routine disa- 
bles the system for a small period of time immediately after 
logging is invoked. Control is passed back to the caller with 
the system enabled. 



Printing the Errors 



The I/O error log data set contains unformatted log records 
which the system I/O device handlers* through $LOG, have writ- 
ten to the log data set. These unformatted data records are 
interpreted, formatted* and printed by the $DISKUT2 utility. 
$DISKUT2 processes the log records of the following I/O 
devices: 

4962 and 4963 disks 

4964 and 4966 diskettes 

4973 and 4974 printers 

4978 and 4979 displays 

BSCA 

4969 tapes (Version 2.0 only) 



$DISKUT2, upon recognition of the LIST LOG command, reads the 
log data set control record and verifies that the log data set 
is valid. Using pointers in the control record, it determines 
whether the data set has wrapped around and the number of 
records in the log. 

The first record of the log data set is a control record which 
contains the device table and initialization data. It also 
contains the size of the log data set and the number of the next 
record to be written. Initially, the next record to be written 
is set to "3". If the size of the data set is ten records and 
the tenth record has been written, the next record to be writ- 
ten is set to "3" and the data set is said to have "wrapped 
around". When this occurs, a message is printed. 

The second record is a set of 256 one-byte counters (one byte 
per device address). Each time an error occurs, the appropri- 
ate counter is incremented. For example, an error at device 
address 4 causes byte 4 to be incremented. The counters cannot 
be incremented past hex f 7F'. 

Each record contains a device address and a "pseudo" device 
type at a fixed location. Depending upon the options you 
select, the device address determines whether to process the 
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record, and the pseudo device type determines how to process 
therecord. 

Pseudo device types X T 01' thru X'7E' are reserved for system 
I/O devices. If any of these values are present* $DISKUT2 will 
load the overlay program SLOGUTOO which interprets the log 
record and moves critical information into a format buffer. 
$LOGUT00 then returns to $DISKUT2 which prints the information 
from the format buffer. Refer to Utilities, Operator Commands) 
Program Preparation; Messages and Codes for further 
information on using DISKUT2. 



Log records with a pseudo types of X'7F' contain already for- 
matted log data; no overlay program is called. The data is 
printed directly from the log record. 

Log records with pseudo types X'80 T thru X'FF f are is consid- 
ered alien device log records. You must supply an overlay pro- 
gram to format alien device log record into printable format. 
The overlay program must be located in the IPL volume and must 
begin with the characters " $ L G U T " . The last two characters are 
located through the device table (bytes 2 and 3 of the entry). 
Note that the pseudo type is used only to look up the table 
entry and need not be the same as the overlay name suffix. 



The Device Ta b 1 e 



The log control record (the first record of the log data set) 
contains a table of up to 30 entries (8 bytes per entry). This 
table must be patched with the alien device pseudo type, the 
size of the DDB (data block to be logged), and the two- 
character overlay program suffix. 

The device table is provided so that devices other than system 
devices (such as program products and RPQs) can be supported by 
error logging with no change to the supervisor. The device han- 
dler logs a pseudo type of X ' 8 * through X f F F T and patches this 
information into the device table. 

Note that it is the task which initializes the $L0G data set 
that should be patched, and not the log data set. The procedure 
for patching is as follows: 

1. Dump the first two records of $L0G (512 bytes). 

2. Locate the characters "DEVICE TABLE". Immediately follow- 
ing these characters are 240 bytes of the alien device 
table. 

3. Patch in the above data as required. 
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The format of an entry is as follows: 

byte = pseudo type (X'80 f thru X'FF') 
1 = data block size in bytes 
2-3 = overlay suffix characters. 
4-7 = reserved - do not use. 

The pseudo type is the indicator of the type of control block 
being logged (the datatype parameter on the LOG macro). 

The next IPL of the system causes the log data set to be updated 
with the new device table entries. 



Display Program 



SDISKUT2 uses the overlay suffix in the device table to load 
the overlay program to format the log record. If the program 
cannot be loaded, the 256-byte record is dumped in hexadecimal. 
If an error is returned by the overlay program, the record is 
dumped in hexadecimal. 

A check is made to see if the overlay program requested is 
already in storage. If it is not in storage, a LOAD instruction 
is executed to bring it into storage. A WAIT for the end event 
of the loaded program is then executed. The overlay program 
should not issue a PROGSTOP. The overlay program should end 
with a DETACH followed by a branch to the first executable 
instruction of the overlay program. 



If the required overlay program is already in storage, its main 
task is attached and a WAIT is issued for the task end event. 
This technique minimizes disk access. Since a fresh copy of the 
overlay program is not loaded for every invocation, the overlay 
program must be reusable, making it important to initialize 
data areas upon entry. 
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A suggested sequence follows: 

PGM PROGRAM INIT , 300 , PARMS=3 
INIT 



GO 



EQU 


* 




USER 


GO 




DETACH 






GOTO 


INIT 




EQU 


* 




MVW 


R1,SAVER1 


* SAVE Rl 


MVW 


SPARM1 ,R1 


* ACRAW BUFFER) 


MVW 


$PARM2,R3 


* A(FORMAT) 



PROCESS DEVICE DEPENDENT DATA 



MVW $PARM3,R1 * A(STATUS) 

MVWI 0,CR1) * SET STATUS OK 

MVW SAVER1,R1 * RESTORE Rl 

B RETURN * RETURN TO DETACH 



SAVER1 DC A(*-*) 
ENDPROG 
END 



LOG Macro Equates 



Coding LOG TYPE=ALL provides a listing of all equated symbols 
associated with logging. Symbols beginning with $LGC define 
the control record, and symbols beginning with $ L G define the 
log record. SLOGEQU through $LOGDDBA are placed into the log 
record by $L0G and are moved to the formatted record by 
$DISKUT2 before calling the overlay program. The overlay 
program must fill in the data defined by $LOGDDB through 
$LOGDEP. 
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CHAPTER 14. INTER-PROGRAM COMMUNICATIONS 



A program may communicate with a terminal operator or with 
another program. There are several ways to communicate*. 

• Passing parameters* using the LOAD instruction. 

• Communicating with a terminal operator. 

• Communicating with another program. 

For a description of the LOAD instruction* refer to the 
Language Reference . 

To communicate with a terminal operator* use the PRINTEXT and 
READTEXT instructions. For a description of the PRINTEXT and 
READTEXT instructions* refer to the Language Reference . 

To communicate with another program* you may use either: 

• Virtual terminal support in conjunction with the PRINTEXT 
and READTEXT instructions. 

• Cross partition services. 

Virtual terminal support uses the PR INTEXT/READTEXT 
instructions to allow programs to communicate with each other. 
It requires two TERMINAL configuration statements and the 
supervisor module IOSVIRT. Refer to "Appendix A. Storage 
Estimating" on page 333 to estimate the storage required. Vir- 
tual terminal support provides synchronization logic. 

Cross partition services are general purpose services that 
require synchronization logic in your programs but no addi- 
tional storage in your supervisor. 

Communication is possible between two programs within the same 
partition and between programs in different partitions. 



VIRTUAL TERMINALS 



The virtual terminal mechanism allows programs to communicate 
across partitions as well as within the same partition. 
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Creating a Virtual Channel 



In the discussion of the TERMINAL statement in Chapter 2, it 
was noted that the combination 



DEVICE=VIRT,ADDRESS= label 



referred to a virtual device* and that the device could be 
defined by another TERMINAL statement referenced by the 
ADDRESS parameter. A virtual channel consists of two such vir- 
tual devices* each referencing the other. 

For example , 



TERMINAL DEVI CE= VI RT , ADDRESS=B , SYNC = YES 



and 



TERMINAL DEVICE= VI RT , ADDRESS=A 



constitute a virtual channel. The SYNC parameter on terminal A 
designates that terminal as the one to which 'synchronization* 
events will be posted. The synchronization mechanism will be 
discussed in "Inter-program Dialogue" on page 282. 

A TERMINAL statement specifying DEVICE=VIRT can be entered in 
an application program provided exactly the same statement is 
entered in the system configuration program. All TERMINAL 
statements within the application program are automatically 
converted to an IOCB statement. The label on the TERMINAL 
statement is used for the label and the operand of the IOCB 
statement . 



Establishing the Connection 



Each program connects to its side of the channel in a way which 
is analogous to the way in which real terminals are accessed* 
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i.e., the program can be 'loaded' from a virtual device, or it 
can acquire the device by issuing the ENQT instruction. 



Accessing the Virtual Terminal 



The application program can acquire a virtual terminal through 
an IOCB simply by issuing 



ENQT 101 



101 IOCB VCHAN1 



Loading from a Virtual Terminal 



When an Event Driven Executive program is loaded from a real 
terminal, that terminal becomes its 'primary" communication 
port. When one program loads another, the current terminal of 
the first program is 1 'passed' and becomes the primary terminal 
of the second. It is this convention which allows a new program 
to establish a virtual terminal as the primary port for the 
loaded program. This is done with the following sequence: 

Definition contained in supervisor system generation? 



TERMINAL DEVICE=VI RT , ADDRESS=B , SYNC=YES 
TERMINAL DEVICE=VI RT , ADDRESS=A , END=YES 
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Program execution 



ENQT 
LOAD 
ENQT 



B 

$TERMUT1,L0GMSG=N0,END=ENDWAIT 

A 



IOCB 
IOCB 



After this sequence; 0TERMUT1 has B (the 'other* end of the 
channel) as its primary port* and the loading program has A 
('this' end of the channel) as its current port. 



Inter-program Dialogue 



Once the two communicating programs have connected to their 
respective ends of the channel* the normal terminal I/O 
instructions can be used to send and receive data. These 
instructions include PRINTEXT, READTEXT, PRINTNUM and 
GETVALUE. Also* attention interrupts can be generated by means 
of the TERMCTRL PF instruction described in the Language 
Reference . The usual conventions with respect to output 
buffering and advance input apply. There are some questions of 
communication protocol (such as knowing when a program is ready 
for input* has ended* etc.) which need not be made explicit for 
dialogue with a human operator with a real terminal but which* 
for virtual terminals* require the condition to be explicitly 
communicated through the task code word. The relevant code 
word values are listed below along with their meanings. 



Value 



Transmi t 



Receive 



X'8Fnn f NA 
X T 8Enn f NA 
-2 NA 

-1 Normal completion 

1 Not attached 

5 Di sconnect 

8 Break 



LINE=nn received 
SKIP=nn received 
Line rece i ved ( no 
New line received 
Not attached 
D i sconnect 
Break 



CR) 
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LINE=nn CX'SFnn' ) 



This code is posted for READTEXT or 
GETVALUE instructions if the other side 
sent the LINE forms control operation; 
it is transmitted so that the receiving 
program can reproduce on a real terminal 
(for printer spooling applications for 
example) the output format intended by 
the sending program. 



SKIP=nn (X'SEnn 1 ) 



The send i ng 
SKIP=nn. 



program 



transmi tted 



Line Received (-2) 



This code indicated that the sending 
program did not send a new-line indica- 
tor, but that the line was transmitted 
because of execution of a control oper- 
ation or a transition to the read state. 
This is how, for example* a prompt mes- 
sage is usually transmitted with 
READTEXT or GETVALUE. 



New Line Received (-1) This code indicates transmission of the 

carriage return at the end of the data. 
The distinction between a new-line 
indicator and a simple line indicator is 
made only to allow preservation of the 
original output format. 



Not attached (1) 



If the virtual terminal accessed for the 
operation does not reference another 
virtual terminal* then this code is 
returned . 



Disconnect (5) 



This code value corresponds to the not 
ready indication for real terminals; 
its specific meaning for virtual termi- 
nals is that the program at the other 
end of the channel terminated either 
through PROGSTOP or operator inter- 
vention. 



Break (8) 



The break code indicates that the other 
side of the channel is in a state 
(transmit or receive) which is incom- 
patible with the attempted operation. 
If only one end of the channel is 
defined with SYNC=YES, then the task on 
that end will always receive the break 
code* whether or not it attempted the 
operation first. If both ends are 
defined with SYNC=YES, then the cede 
will be posted to the task which last 
attempted the operation. The break code 
can thus be understood as follows? when 
reading (READTEXT or GETVALUE), the 
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other program has stopped sending and. is 
waiting for input; when writing 
(PRINTEXT or PRINTNUM), the other 
program is also attempting to write. 
Note that current Event Driven Execu- 
tive programs* or future programs which 
do not interpret the break code, must 
always communicate through a virtual 
terminal which is defined with SYNC=NO 
(the default) . 

Examp le : The following program exhibits virtual terminal 
communications in a general way. Its function is to load a pro- 
gram designated by the operator, communicate with that program 
through a virtual channel and relay messages between it and the 
real terminal. 
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VIRTCHAN 

* 

# 
x 
x 
x 
x 
x 

X 
X 

X 

A 

B 

DEND 

RETCODE 

LINE 

x 

BEGIN 



LOAD 
NEXTREAD 



PROGRAM 



BEGIN 



THIS EXAMPLE EXHIBITS VIRTUAL TERMINAL 
IN A GENERAL WAY. ITS FUNCTION IS TO 
LOAD A PROGRAM DESIGNATED BY THE OPERATOR, 
COMMUNICATE WITH THE PROGRAM THROUGH A 
VIRTUAL CHANNEL, AND RELAY MESSAGES BETWEEN 
IT AND THE REAL TERMINAL. 



COPY 

TERMINAL 

TERMINAL 

ECB 

DC 

TEXT 



PROGEQU (REQUIRED IF USING $EDXASM) 
DEVICE=VIRT,ADDRESS=B, SYNC = YES 
DEVICE=VIRT,ADDRESS=A,END=YES 

F f f 
LENGTH=80 



READTE 

IF 

MOVE 

ENQT 

LOAD 

ENQT 

READTE 

MOVE 

DEQT 

IF 

IF 
IF 
PR 
IF 

EN 

ELSE 

IF 



EL 



XT 



XT 



LINE, 'UTI 

(LINE,EQ, 

LOAD+10, L 

B 

DUMMY, LOGMSG=N 

A 

LINE, MODE 

RETCODE, V 



LITY: 
C ' , 
INE, ( 



= LINE 
IRTCH 



(RETCODE, EQ, 5) 
RETCODE, NE, 8 
(RETCODE, EQ, 
INTEXT LINE,MODE= 
RETCODE, EQ, 
PRINTEXT SKIP=1 
DIF 



x GET PGM 
BYTE) , GOTO, END 
14, BYTES) x TO 

* GET END B 
0,EVENT=DEND,ERR 
x GET END 
x NEXT LIN 
AN * GET RETU 
x DEQUEUE FRO 
,GOTO,ENDWAIT 

x IF NOT END 
-1) ,OR, (RETCODE, 
LINE x TO TE 
-1 * IF NEW 
* THEN 



NAME 

LOAD INSTR 

OR=NEXTPROG 

A 

E FROM PGM 

RN CODE 

M CHANNEL 

x IF END 

OF OUTPUT 

EQ,-2) 

RMINAL 

LINE 

DO NEWLINE 



EN 
ENDI 
ENQT 



AND 

PRI 

SE 

IF 
A 
P 

END 

DIF 

F 



(RETCODE, EQ,X'8F f 
RETCODE, X'OOFF' 
NTEXT LINE=RETCODE 



BYTE) * 



IF LINE= 

* THEN DO IT 

x ON TERMINAL 



ND 

RINTEXT 

IF 



(RETCODE, EQ, X'8E T , BYTE) * IF SKIP= 
RETCODE, X'OOFF 1 * ETC. 
SKIP=RETCODE 



* RETURN TO CHANNEL 
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ENDWAIT 
NEXTPROG 

END 



ELSE 

READTEXT 

ENQT 

PRINTEXT 

PRINTEXT 
ENDIF 
GOTO 
WAIT 
DEQT 
GOTO 

PROGSTOP 
ENDPROG 
END 



LINE,MODE=LINE 
A 

LINE,MODE=LINE 
SKIP=1 

NEXTREAD 
DEND 

BEGIN 



* IF BREAK, 

* RETURN TO 

* SEND LINE 



READ LINE 
CHANNEL 



* GO GET NEXT LINE 

* WAIT FOR END EVENT 

* DEQUEUE FR CHANNEL 

* GO GET NEXT PGM 



CROSS PARTITION SERVICES 



Cross partition services permit asynchronous but coordinated 
execution of application programs running in different parti- 
t i ons . 

These services can be used when interrelated programs and tasks 
in your application cannot be accommodated in a single parti- 
tion. 

When your task is attached, its TCB ($TCBADS) is updated to 
contain the number of the address space in which it is execut- 
ing. The address space value (the partition number minus one) 
is also known as the hardware address key. This key, along with 
an address you supply, is used to calculate the target address 
used in cross partition services. For some functions, you put 
the address key of the target partition in $TCBADS. 

Cross partition services provide the following: 

• Loading other programs via the LOAD instruction (using the 
PART= operand ) . 

PROGA PROGRAM START , DS=DATASET1 

COPY PROGEQU 

COPY TCBEQU 

START LOAD PROGB , PARML 1 , EVENT=PROGBEND , PART=2 

WAIT PROGBEND 



PROGBEND ECB 
PARML1 DATA F f 



DEFINE ECB W/VALUE OF ZERO 
(AS REQUIRED) 
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In this example* PROGB is loaded into partition two and the 
parameters at PARML1 are passed to it. When PROGB termi- 
nates, the supervisor will post the ECB at PROGBEND, 
signaling PROGA that PROGB has ended. 

$TCBADS is not modified by the LOAD instruction. 



Note : In this and the following examples, the same 
areas are referenced to show interrelationships. 



data 



Finding other programs via the WHERES instruction which 
returns the address key and the load point of a program 

WHERES PROGB, ADDRB , KEY=KEYB 



PROGB 


DATA 


C'PROGB 


' PROGRAM 


NAME 


ADDRB 


DATA 


F T 0' 


FOR PGM 


HDR ADDRESS 


KEYB 


DATA 


F'O' 


FOR PGM 


ADDRESS KEY 



The above instruction causes the address key and program 
header address of PROGB to be placed into KEYB and ADDRB. 

$TCBADS is not modified by the WHERES instruction. 

Data movement via the MOVE instructions using the FKEY= and 
TKEY= operands. FKEY designates the address key of the 
partition containing the "from" address (opera nd2 of the 
MOVE instruction). TKEY designates the address key of the 
partition containing the "to" address (operandi of the 
MOVE instruction). 



MOVE #2, ADDRB ADDRESS OF HEADER 
GET TCB ADDRESS FROM PROGB HEADER 



MOVE TASKADDR, ($PRGTCB,#2) ,FKEY=KEYB 
TASKADDR DATA F'O' PROGB'S PRIMARY TCB 

Using the address and address key obtained from the WHERES 
instruction in the previous example, the above cross- 
partition MOVE instruction obtains the primary TCB address 
from a program in another partition. 

Starting other tasks via the ATTACH instruction. $TCBADS 
and the supplied task name are used to calculate the parti- 
tion and address of the task to be attached. 

Assume that PROGB's primary task does not terminate but 
issues a DETACH instruction. PROGA can cause the primary 
task of PROGB to become active by issuing an ATTACH, speci- 
fying the address key and the address of the TCB as fol- 
lows : 
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MOVE KEYSAV, STCBADS+PROGA 
MOVE $TCBADS+PROGA,KEYB 

REATTACH PROGB'S PRIMARY TASK 



SAVE MY KEY 
SET UP KEY VAL 



KEYSAV 



ATTACH *,500,CODE=-5,P1=TASKADDR 

MOVE $TCBADS+PROGA, KEYSAV RESTORE MY KEY 

DATA F'O' KEY SAVE AREA 



This sequence of instructions saves the address space key* 
replaces it with the key of PROGB, and issues an ATTACH 
instruction to reactivate PROGB's primary TCB. In the 
above example, TASKADDR is set to the appropriate TCB 
address . 

Sharing resources via the ENQ/DEQ instructions. STCBADS 
and the QCB address are used to calculate the partition and 
the address of the resource to be enqueued or dequeued. 

Assume that PROGA has passed to PROGB the address of two 
QCBs and that PROGB has saved these addresses in RES1 and 
RES2 respectively. Sharing these resources can be accom- 
plished as follows: 

MOVE SAVKEY, $TCBADS+PROGB SAVE KEY 

MOVE RESNAME,RES1 RESOURCE ADDRESS 

MOVE $TCBADS+PROGB,PROGAKEY SET KEY TO PROGA 

ENQ *,BUSY=CANTHAVE,P1=RESNAME ISSUE ENQ 

MOVE $TCBADS+PROGB, SAVKEY RESTORE MY KEY 



CANTHAVE DATA 
* 

* 



F T T ROUTINE TO: 

1. RESET 5TCBADS FROM SAVKEY 

2. HANDLE NON-AVAILABLE 
RESOURCE 



RES1 


DATA 


F'O 


RES2 


DATA 


F f 


SAVKEY 


DATA 


F T 



RESOURCE 
RESOURCE 
SLOT FOR 



ONE ADDRESS 
TWO ADDRESS 
KEY SAVE AREA 



This example acquires exclusive use of the resource 
defined as RES1 . If the resource is not available, 
execution of PROGB resumes at location CANTHAVE. It is 
also possible to wait for PROGA to free (dequeue) RES1. In 
this case, a BUSY keyword is not entered, causing PROGB to 
be suspended until PROGA issues a DEQ for the resource. 

A DEQ instruction is set up in an identical manner. 

Synchronizing tasks via the WAIT/POST instructions. 
$ T C B A D S and the ECB address are used to calculate the 
partition number and the address of the ECB to be waited on 
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or posted . 

Assume that PROGA has passed parameters to PROGB, among 
them an EPB address and the key of PROGA. The parameters 
are saved in PROGAECB and PROGAKEY respectively. PROGB can 
signal (post) PROGA as follows*. 

MOVE KEYHOLD,$TCBADS+PROGB SAVE STCBADS 

MOVE PROGA, PROGAECB SET ADDR OF ECB 

MOVE $TCBADS+PROGB, PROGAKEY SET PROGA'S KEY 

POST *,-l,Pl=PROGA POST PROGA 

MOVE $TCBADS+PROGB,KEYHOLD RESTORE STCBADS 



KEYHOLD DATA 
PROGAECB DATA 
PROGAKEY DATA 



F'O' 
F'O' 
F'O' 



SAVE AREA FOR KEY 
ECB ADDR IN PROGA 
PROGA'S KEY 



In this example, PROGB saves its key, inserts the address 
of PROGA's ECB, set $TCBADS to the key of PROGA, issues a 
POST to PROGA, and restores its $TCBADS, using the value 
saved . 

A WAIT instruction is set up in an identical manner. 

I/O services via the READ/WRITE or BSCREAD/BSCWR ITE 
instructions. $ T C B A D S is used to calculate the partition 
and address to/from which data will be transferred. 

Assume that PROGB had STG=1024 on its PROGRAM statement. 
This causes a 1024 byte area of storage to be acquired for 
PROGB when it is loaded. The address of this area is in 
PROGB's program header (at $PRGSTG). PROGA can acquire 
this address as follows: 

MOVE PROGBBUF, ($PRG5TG, #2) ,FKEY=KEYB #2 HAS 
* THE ADDRESS OF PROGB'S HEADER 



PROGBBUF DATA F'O' 



ADDR OF PROGB'S DYNAMIC AREA 
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PROGA can then read data directly into PROGB's storage as 
f ol lows : 



MOVE SAVAKEY*$TCBADS+PROGA SAVE STCBADS 

MOVE BUFAD,PROGBBUF PROGB BUFFER 

MOVE RELRECRECN START WITH REC 1 

MOVE $TCBADS+PROGA*KEYB SET PROGB KEY 

READ FROM DS1 INTO PROGB'S BUFFER 

READ DS1,*,4,*,END=E0D,ERR0R=RDERR, 
P2=BUFAD*P4=RELREC 

RESTORE PROGA'S KEY 

MOVE $TCBADS+PROGA,SAVAKEY 



EOD 
* 



DATA F f 0' 



ROUTINE TO: 

•1. RESET STCBADS 

2. HANDLE END OF DATA 



RDERR DATA F'0 f ROUTINE TO: 

* . 1. RESET $TCBADS 

* 2. HANDLE ERROR CONDITIONS 



RECN 



DATA F f l f 



RELATIVE RECORD NUMBER 



are transferred 
PROGA's program 
header) to the storage address obtained from PROGB's head- 
er . 



In this example* four 256-byte records 
Cfrom the data set described by DS1 in 



Notes : 



After issuing the cross partition service request* $ T C B A D S 
was immediately restored to its original value. It is 
recommended that this practice be implemented in your 
application. Doing so will preclude unexpected or unpre- 
dictable results such as overlaying other applications 
with data or waiting indefinitely because of ECBs that were 
never posted or DEQs that were never issued. 

In the READ example* only the LOC operand of the READ 
instruction (or the BUFFER operand of the BSCIOCB 
instruction) is affected by $TCBADS. All other operand 
values or addresses are contained in the address space of 
the issuing program. Therefore* the END operand specifies 
a routine in your program which is to be invoked if an end- 
of-data condition occurs. 



290 SC34-0312 



When an ATTACH instruction is executed* the default termi- 
nal address or the currently active terminal address of the 
task issuing the ATTACH is placed into $TCBCCB. This 
address is a CCB address. 

When a LOAD instruction is executed for an overlay or 
non-overlay program* the default terminal address or the 
currently active terminal address of the program issuing 
the LOAD is placed in the program header of the loaded pro- 
gram, This address is taken from $PRGCCB in the issuing 
program's program header and placed into $PRGCCB of the 
loaded program's program header. This address is a CCB 
address . 
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C HAPTER 15. M I SCELLANEOUS TERMINAL I/O CONSIDERATIONS 



Logical screens can be defined either during system generation 
or at the time an ENQT instruction is executed. Examples of the 
TERMINAL statement for the 4978/4979 Display are given below. 



TERM1 



TERMINAL DEVICE=4979 , ADDRESS =04 



Defines the default configuration* to be used for general pur 
pose program loading and execution. The entire screen simu 
lates a typewriter terminal. 



TERM2 



TERMINAL DEVICE =49 79 , ADDRESS= 14 , SCREEN=STAT IC 



Defines a full screen static configuration to be used for data 
entry and display. Programs can be loaded from the terminal* 
but the terminal I/O instructions issued will be interpreted 
for a STATIC screen unless the configuration is changed to ROLL 
by an IOCB. This configuration would normally be usedwhen the 
terminal is to be used only as a data entry device. 



TERM 3 



TERMINAL DE VICE =49 78 , ADDRESS =24 , T0PM= 1 2 , NH I ST=6 



This represents a split screen configuration. The area of roll 
screen operation will be limited to the bottom 12 lines of the 
screen* leaving the top half for other logical screens to be 
defined upon execution of ENQT. 



TERM4 TERMINAL DEVICE = 4979 , ADDRESS= 34 , LEFTM= 39 , 

BOTM=11,NHIST=0 
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This statement defines a roll screen occupying the upper right 
quadrant of the screen. In general/ logical screens with less 
than an 80-character line size suffer some performance disad- 
vantages (such as slower erasure) but can be useful for special 
applications. Note that NHIST is zero here because screen 
shifting will not be performed; a non-zero value for NHIST 
would merely cause the history area to be unused. 

Logical screens can also be established by the ENQT instruction 
referencing an IOCB. Examples follow. 



DISPLAY PROGRAM BEGIN 

TOPHALF IOCB B0TM=1 1 , SCREEN=STATIC 

BEGIN ENQT TOPHALF 



DEQT 

PROGSTOP 
ENDPROG 
END 



The IOCB labeled TOPHALF defines the top half of the screen 
from which the program was loaded as a static screen. If, for 
example, the terminal was configured as in TERM3 on the previ- 
ous pager the program could have been loaded by entry of $L 
(program name) in the roll screen area on the bottom half of the 
screen. Since no terminal name is specified on the IOCB state- 
ment, the ENQT refers to the loading terminal. The program 
then might display tabular information on the static screen, 
execute DEQT and then end. The result of this is that the 
information displayed can remain on the screen while the termi- 
nal operator performs other operations using the roll screen. 
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NOTICE 


PROGRAM 


TERMX 


IOCB 


NAMETAB 


DATA 




DATA 




DATA 




DATA 


BEGIN 


MOVEA 




DO 




MOVE 




ENQT 




PRINTEXT 




DEQT 




ADD 




ENDDO 




PROGSTOP 




ENDPROG 




END 



BEGIN 

SCREEN=STATIC 

CL8'TERMl f 

CL8'TERM2' 

CL8'TERM3 f 

CL8'TERM4 f 

#1, NAMETAB 

TERMX, (0,#1) , (8, BYTES) 

TERMX 

•SYSTEM ACTIVE' ,LINE=0 

#1,8 



This example illustrates terminal access by using the name of 
the terminal. TERM1, TERM2, TERM3, and TERM4 must have been 
defined on a TERMINAL configuration statement. The use of the 
static screen mode insures that only physical line of each 
screen will be altered. (LINE=0 for roll screens causes a page 
eject and erasure of information.) 



Modifying the IOCB 



Elements of the IOCB which may be modified by an application 
program are the terminal name, roll to static, and NHIST. The 
structure given here is provided for those special applica- 
tions in which other elements may need to be modified; note 
that the structure may change with future versions of the Event 
Dr i ven Execut i ve . 
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BYTE(S) 



ELEMENT 
t 



COMMENTS 



0-7 



Terminal Name 



EBCDIC, blank filled 



Flags 



#CCBFLGS is described in 

the Internal Design 

manual under "Terminal 

I/O". 

Bit off indicates that 

the name is the only element 

of the IOCB. 



Top of working 
area 



Equal to TOPM+NHIST 



10 



Top marg i n 



TOPM or zero 



11 



Bottom mar g i n 



BOTM, or X'FF' if 
unspec i f i ed 



12 



Left margin 



LEFTM or zero 



13 



Page size 



Equal to X'00 ? if 
unspecified 



14-15 



Line size 



Equal to X'7FFF' if 
unspecified 



16 



Cur rent 1 i ne 



Initialized to TOPM+NHIST 



17 



Current i ndent 



Left margin included 



18-19 



Buffer address 



Zero if unspecified 
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Accessing a Static Screen 



Line-oriented input/output instructions provide the most 
straightforward means for constructing and reading data from 
static screens. However* when individual data fields are 
accessed frequently* excessive screen flicker can result. This 
problem can be eliminated by transferring an entire screen 
image to the display device with one I/O operation. The follow- 
ing program will illustrate this procedure as well as some oth- 
er important points relating to programming for static 
screens . 



DISPLAY PROGRAM 
SCREEN IOCB 

I DATA 
BUFF BUFFER 

DATA 
NULLS DATA 
NUMS DATA 
VALS TEXT 
BEGIN ENQT 

TERMCTRL 
PRINTEXT 



THIS DO LOOP PLA 
OF "I" INTO THE 
ACTUAL CONTENTS 
WHEN THE "TERMC 

DO 

PRINTEXT 

PUTEDIT 

PRINTEXT 

PRINTEXT 

ENDDO 

PRINTEXT 

PUTEDIT 



PRINTEXT 
PRINTEXT 
TERMCTRL 
DEQT 

PROGSTOP 
F0RMAT1 FORMAT (I 
ENDPROG 
END 



BEGIN 

SCREEN=STATIC,B0TM=5, C 2 

BUFFER=BUFF,RIGHTM=479 

F'0 f 

480, BYTES 5 

X f 0202' 6 

X^OOO' 7 

48F f 0' 8 

LENGTH=254 9 

SCREEN 10 

BLANK 11 

LINE=0 12 

CES THE WORD "FIELD" AND THE VALUE 
TERMINAL BUFFER 48 TIMES. THE 
OF THE TERMINAL BUFFER IS PRINTED 

TRL DISPLAY" STATEMENT IS REACHED. 

48,INDEX=I 13 

'FIELD' ,PROTECT=YES 14 

FORMAT 1, VALS, ((D) ,PROTECT = YES 15 

' ' ,PROTECT = YES 16 

NULLS, PROTECT=YES 17 

LINE=0 19 

FORMAT1, VALS, ((NUMS, 48)), C 20 
ACTION=STG 

VALS,MODE=LINE, LINE=0 22 

LINE=0,SPACES=8 23 

DISPLAY 24 

25 



2) 



This program accesses the top six lines of the screen in static 
mode and initially formats it with a sequence of protected 
fields. An array of integers is displayed on lines 0-5 and a 

pause is executed to allow the operator to --*--■- ---"- - * 

values in corresponding positions of 
values are then displayed on lines 0-5. 



enter a new set of 
lines 6-11. The new 
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Numbers refer to lines in the preceding example program. 

2 Define the static screen with the terminal I/O 

buffer to be in the application program at BUFF* with 
a length of 480 bytes (one-quarter of the 4979 dis- 
play screen ) . 

5 Allocate storage for the buffer. Note that in this 

program the buffer is never accessed directly; the 
space is merely allocated here for use by the super- 
visor. 



6 and 7 Define a TEXT message consisting 
characters (EBCDIC code X f 00»). 



of two null 



8 and 9 Define the array of integers (initially zero) and 
the TEXT buffer which will be used for input and out- 
put of the data in EBCDIC form. 

10 to 12 Acquire the terminal, erase all data and establish 
the screen position for the first I/O operation. 
Since several text strings will be concatenated to 
form the first output line, the screen position must 
be established in advance. 



13 



Begin a DO loop to construct the initial screen 
image. This will consist of 48 protected fields of 
the form FIELDxx, where xx is a sequential field num- 
ber, each followed by one protected blank and two 
unprotected data positions. Note here the condi- 
tions required for forming a concatenated line; the 
protection mode of the PRINTEXT instructions must 
not change (either all PROTECT=YES or all 
PR0TECT=N0), and no intervening forms control oper- 
ations can be executed. 



14 
15 



Nrite 'FIELD 1 to the buffer. 

Convert the sequence number to two EBCDIC characters 
and write it to the buffer. 



16 
17 



Write a protected separation character. 

Write the two null characters to define the data 
positions. Null characters will always generate 
unprotected positions on the screen; PROTECT=YES is 
nevertheless required here in order to maintain con- 
catenat i on . 



19 



Write the concatenated line to the display. Any 
convenient line control operation or the DEQT 
instruction will accomplish this. 
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20 



Convert the integer array to two -character EBCDIC 
values and store the resulting line in the TEXT buff- 
er VALS. 



22 



Write the values into successive unprotected 
positions of the display beginning at 
LINE=0 ,SPACES=0 . This 'scatter write 1 mode is 
defined by M0DE=LINE; without M0DE=LINE the pro- 
tected fields of the display would be overwritten. 



23 



Define the cursor to be at 
position. 



the first unprotected 



24 
25 



Display the cursor at its defined position. 

Release the terminal. The buffer designated in the 
IOCB will be released and the screen configuration 
restored to that defined by the TERMINAL statement. 



In the program described above* the terminal I/O operations 
were all conveniently performed through the concatenation of 
TEXT strings. If the application requires more complex format- 
ting of the screen image, or if input of more than 254 bytes at 
a time is necessary, then direct access to the buffer is appro- 
priate. See PRINTEXT and READTEXT. 
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Using Formatted Screen Images 



Formatted screen images can be created and saved in disk or 
diskette data sets with the utility program $ I MAGE. The 
retrieval and display of such images can be simplified by 
employing a set of subroutines. An EXTRN statement must be 
coded for each subroutine name which is referenced, and 
AUTO = $A'UTO,ASMLIB must be coded on the OUTPUT statement of the 
link-edit control data set. 

In the calling formats given below, arguments which represent 
addresses to be passed to a subroutine must be enclosed within 
parentheses as shown. If the desired address is contained 
within a variable, then the name of that variable must be writ- 
ten without parentheses. 



$IMOPEN Subroutine 



This subroutine reads the designated image from disk or 
diskette into your buffer. You can also perform this operation 
by using DSOPEN or defining the data set at program loadtime, 
and issuing the disk READ instruction. Refer to the format 
description at the end of this section for data set size deter- 
m i nat i on . 

Syntax 



label 

Required: 
Defaults: 
Indexable: 



CALL $ I MOP EN, ( dsname, volume), (buffer ) ,P2=,P3 = 

ds name, buffer 

None 

None 



Operands Description 

dsname The address of a TEXT statement which contains the 
name of the data set. A volume label can be 
included, separated from the name by a comma. 

buffer The address of a BUFFER statement allocating the 
storage into which the image data will be read. The 
storage should be allocated in bytes, as in the fol- 
lowing example: 
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label 



BUFFER 256, BYTES 



Error Codes (Returned in taskname + 2 ) 



Successful completion 

D i sk I/O error 

Invalid data set name 

Data set not found 

Incorrect header or data set length 

Input buffer too small 

Invalid volume name 



$IMDEFN Subroutine 



Subroutine SIMDEFN is used to construct an IOCB for a formatted 
screen image. The IOCB can also be coded directly, but the use 
of SIMDEFN allows the image dimensions to be modified with SIM- 
AGE without requiring a change to the application program. 



Syntax 



label 



Requ i red : 
Defaults : 
Indexab le : 



CALL SIMDEFN, (iocb) , (buffer), topm, leftm, 
P2=,P3=,P4=,P5= 

iocb, buffer 

None 

None 



Operands 
iocb 



Descr i pt i on 

The address of an IOCB statement defining a static 
screen. The IOCB need not specify the TOPM, BOTM, 
LEFTM nor RIGHTM parameters; these are 'filled in" 
by the subroutine. The following IOCB would 
normally suffice: 
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label IOCB term i nal , SCREEN=STATIC 



buffer The address of an area containing the screen image 
in disk storage format. (The format is described at 
the end of this section.) 



leftm 



topm This parameter indicates the screen position at 
which line will appear. If its value is such that 
lines would be lost at the bottom of the screen* 
then it is forced to zero. 

This parameter indicates the screen position at 
which the left edge of the image will appear. If 
its value is such that characters would be lost at 
the right of the screen* then it is forced to zero. 

Once an IOCB for the static screen area has been defined* the 
program can then acquire that screen through ENQT and call one 
or both of the following subroutines in order to display the 
i mage . 



OIMPROT Subroutine 



This subroutine displays the protected and null fields of an 
image which is in disk-storage format. A field table giving 
the location (line, spaces) and size of each data field of the 
image can also be constructed at the option of the calling pro- 
gram . 

Syntax 



label 



CALL SIMPROT, (buffer), ( f tab ) , P2= , P3= 



Required: buffer, ftab 
Defaults : None 
Indexable: None 



Operands 



Description 
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buffer 



ftab 



The address of an area containing the screen image 

in disk storage format. The format is described at 

the end of this section. 
* 

The address of a table to be constructed giving the 
location ( 1 i nes , spaces ) and size (characters) of 
each data field of the image. 



The table has the following form: 



label 



label+6 



1 i ne 
spaces 
s i ze 
1 i ne 
spaces 
s i ze 



label+6(n-l) line 

spaces 
s i ze 



** field 1 



** field 2 



** field n 



The field numbers correspond to the following ordering: left 
to right in the top line, left to right in the second line, and 
so on to the last field in the last line. Storage for the field 
table should be allocated with a BUFFER statement specifying 
the desired number of words. The buffer control word at 
label-2 will be used to limit the amount of field information 
stored, and the buffer index word at buffer-4 will be set with 
the number of fields for which information was stored, the 
total number of words being three times that value. If the 
field table is not desired, code zero for this parameter. 



$IMDATA Subroutine 



SIMDATA can be called to display the initial data values for an 
image which is in disk storage format. 



Syntax 
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label 

Required: 
Defaults : 
Indexab le : 



CALL SIMDATA, (buffer),P2= 

buffer 

None 

None 



Operands Descr i pt i on 

buffer The address of an area containing the image in 
disk-storage format. 



Example: Formatted Screen Images 



The following program illustrates use of the image generation 
subroutines in a general application. Under direction of the 
terminal operator, this program displays any image stored on 
disk, at any (4978 or 4979) terminal, and at any screen coordi- 
nates. For each image, a field table is constructed and used to 
modify the initial data values. 
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IMDISP 
* 

x 
x 
x 
x 
x 
x 

X 

x 



PROGRAM 



BEGIN 



THIS IS AN EXAMPLE OF THE USE OF 
IMAGE GENERATION SUBROUTINES. 
UNDER DIRECTION OF THE TERMINAL 
OPERATOR, THIS PROGRAM DISPLAYS 
ANY IMAGE STORED ON DISK AT ANY 
4978 OR 4979 TERMINAL. 



BEGIN 
* 



EXTRN $IMOPEN,$IMDEFN,$IMPROT,$IMDATA 

Terminal name to IOCB 

READTEXT IMAGE , ' TERMINAL : ? 

Get data set name 

READTEXT DSNAME,'DATA SET: " , PROMPT=COND 

Get origin values 

GETVALUE ORG ,' OR IGIN ( L INE , SPACES ) : ',2, 

PROMPT=COND 
Open image data set 

CALL $IMOPEN, (DSNAME) , (DISKBFR) 
If open is unsuccessful, 
Print error code and query 
IF IMDISP+2,NE,-1 



** 



xx 



XX 



XX 



XX 
XX 



XX 



XX 



XX 



MOVE 

PRINTEXT 

PRINTNUM 

GOTO 
ENDIF 
Construct 
CALL 
ENQT 
TERMCTRL 



CALL 

CALL 

Set cursor 

PRINTEXT 

TERMCTRL 

DEQT 

WAIT 

ENQT 

TERMCTRL 

MOVEA 

Build line 

MOVE 

DO 



CODE, IMDISP+2 
T 30PEN ERROR CODE' 
CODE 
NEXT 

IOCB 

$IMDEFN, (IMAGE) , (DISKBFR) ,ORG,ORG+2 

IMAGE xx Acquire static screen 

BLANK xx Blank screen 

xx Write protected fields 
xx and build field table 
xx at FTAB 

$ I MP ROT, (DISKBFR), (FTAB) 

$IMDATA, (DISKBFR) xx Write 
at first field 

LINE=FTAB,SPACES=FTAB+2 



data f i elds 



DISPLAY 

KEY 
IMAGE 
BLANK 
#1,FTAB 

of as 

LINE,C f 3' 
FTAB-4 



xx Unblank screen 

xx Return to this terminal 

xx WAIT for operator 

xx Back to target terminal 

xx Blank screen 

xx Point #1 to field table 



MOVE 



(80, BYTES) 
xx DO NR of fields 
xx Field size to text 
LINE-1, (5, #1), BYTE 



s l ze 



Chapter 15. Miscellaneous Terminal I/O Considerations 



305 



NEXT 

DSNAM 
DISKB 

IMAGE 

CODE 

ORG 

FTAB 

LINE 



E 
FR 



xx P 
P 
A 
END 
TER 
DEQ 
WAI 
ENQ 
ERA 
DEQ 
QUE 
PRO 
TEX 
BUF 
DC 
IOC 
DC 
DC 
BUF 
TEX 
END 
END 



r i nt 

RINTE 

DD 

DO 

MCTRL 

T 

T 

T 

SE 

T 

STION 

GSTOP 

T 

FER 

B 



FER 

T 

PROG 



as in field 

XT LINE,LINE=(0,#1) , SPACES= ( 2 , #1) 
#1,6 xx Next field 

DISPLAY ** Unblank screen 

xx Back to this terminal 
KEY * * ' A 1 1 o w viewing time 
IMAGE xx Acquire target image 
LINE=0,MODE=SCREEN,TYPE=ALL xx Erase 

xx Back to roll screen 
'ANOTHER IMAGE? ',YES=BEGIN 



LENGTH=16 ** 

512, BYTES xx 

X'0808 T xx 
SCREEN=STATIC xx 

F f T xx 

2F ' f xx 
300 
LENGTH=80 



Data set name 

Disk buffer 

Text control for name 

IOCB for image 

Return code 

Origin ( LINE , SPACES ) 



In the above example, use of the field size from the field table 
is for illustrative purposes only. Each non-protected output 
operation is terminated by the beginning of the next protected 
field, unless M0DE=LINE is coded. 

The size of the disk buffer can vary between 256 bytes and 2048 
bytes. Because of the data compression used in storage of the 
images, many images will require only 256 bytes (1 sector), and 
512 bytes (2 sectors) will be adequate for typical applica- 
t i ons . 

The display subroutines normally write images to the terminal 
in line-by-line fashion. If a defined image consists of 80-byte 
lines, however, then a performance improvement can be obtained 
by providing a terminal buffer large enough to contain more 
than one line. Since the display subroutines will perform con- 
catenated write operations whenever possible, larger buffers 
result in fewer such operations and, therefore, faster gener- 
ation of the display image. For a full screen image, for exam- 
ple, a time for space trade-off can be obtained by choosing a 
buffer size between 80 bytes (1 line) and 1920 bytes (24 
lines). A temporary buffer can be defined by coding the BUFFER= 
parameter on the IOCB which is used to access the screen. 
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End of Forms on 4973 and 4974 Printers 

Terminal I/O goes into a wait state trying to print when one of 
the following situations occurs: 

• The printer is in DISABLE (4973) or WAIT (4974) mode. 

• The printer is out of paper. 

• The paper is jammed in the printer. 

You can correct this problem by doing the following.* 

If in DISABLE or WAIT mode, set the switch to ENABLE (on 
4973) or to PRINT (on 4974) to resume printing. 

• If the printer is out of paper or the paper is jammed, set 
the mode switch to DISABLE or WAIT, add new paper or fix 
paper jam, and reset the mode switch to ENABLE or PRINT. 

Reading Modified Data on the 4978 Display 



Both protected and unprotected fields on the 4978 are defined 
as a set of contiguous characters that may span line bounda- 
ries. A protected field ends when an unprotected field is 
encountered. Similarly, an unprotected field ends when a pro- 
tected field is encountered. Neither an unprotected nor a pro- 
tected field necessarily ends at an EDX partial screen 
boundary . 



An unprotected field is considered a modified field when any 
character within the field is modified by the operator. The 
field may be read by the Event Driven Language READTEXT 
instruction with TYPE=MODDATA . Reading the field leaves its 
modified status unchanged. A modified field becomes an unmodi- 
fied field by either writing or erasing all the characters in 
the field. For additional information, refer to IBM Series/1 
4978-1 Display Station (RPQ D02055) and Attachment (RPQ 
D02038), General Information, GA34-1550. 
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CHAPTER 16. ADVANCED TOPICS 



TRANSLATING COMPRESSED/NONCOMPRESSED BYTE STRINGS 



The following two subroutines are used internally by $IMPROT 
and $IMDATA as well as by the utility program $IMAGE. They can 
also, however, be called directly by an application program and 
are described here because of their general utility. 



$UNPACK Subroutine 



This subroutine moves a compressed byte string and translates 
it to noncompressed form. 

Svnta x 



label CALL OUNPACK ,( source ),( dest ), P2= , P3= 

Required: source, dest 
Defaults? None 
Indexable : None 



Operands Description 

source The address of a compressed byte string. (See 
Figure 43 on page 311 for the compressed format.) 
At completion of the operation, this parameter is 
incremented by the length of the compressed string. 

dest The address at which the expanded string is to be 
placed. The length of the expanded string is placed 
in the byte preceding this location. The $UNPACK 
subroutine can, therefore, conveniently be used to 
move and expand a compressed byte string into a TEXT 
buffer . 



$PACK Subroutine 



This subroutine moves a byte string and translates it to com- 
pressed f orm . 
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Syntax 



label 



CALL SPACK, (source), (dest) , P2=,P3= 



Required: source, dest 
Defaults: None 
Indexable: None 



Operands 
source 



dest 



Description 

The address of the string to be compressed. The 
length of the string is taken from the byte preced- 
ing this location, and the string could, therefore, 
be the contents of a TEXT buffer. 

The address at which the compressed string is to be 
stored. At completion of the operation, this 
parameter is incremented by the length of the com- 
pressed str i ng . 
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2 bytes 



Code 



Lines (L) 



Width (W) 



Total length (T) 



Protect length (P) 



Compressed protected 
lines, including nulls. 



Compressed data 



lines. 



IMAG (if image) 

(KL<24 
0<W<80 



>P 



>T 



Total length of data set = T+1 2 bytes, or 



Compressed line format: 



T+267 
256 



Fi 


F 2 


• • • 


Fn 


F 






— » ^ *" 




I 



Each Fj is either: 



L 


Ci 


c 2 


• • • 


c L 



or 



L C 



L< (represents - L repetitions of C) 



Where L and Cj are bytes. 
Figure 43. $IMAGE Disk Storage Format 
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TERMINALS CONNECTED VIA DIGITAL I/O 



Terminal support is provided for digital I/O devices such as 
the Tektronix 5 4010 Series of Display Terminals equipped with 
the General Purpose Parallel Interface (Tektronix Custom 
Feature Number CM021-0 1 09-03 ) or terminals having equivalent 
hardware interfaces. The software provides addressing logic 
such that up to eight terminals may be shared on one digital 
input group and one digital output group* with one process 
interrupt bit for each terminal. 

The parallel interface is intended to connect directly to the 
integrated digital input /output feature or the 4982 noniso- 
lated digital input /output features. This interface consists 
of a driver and a receiver card, each of which has several 
selectable options. These "patch options" allow you to custom- 
ize the interface to the requirements. You must refer to the 
manufacturer's manuals for detailed installation procedures. 
The following description is intended only to supplement those 
manuals and guide you in the use of the Event Driven Executive 
terminal support on the Series/1. The following options should 
be selected : 



Rece i ver Card 

INTR (interrupt) PROG 

ADDRESS 000(0)-lll(7) to match 

TERMINAL definition 

PERM ADD OFF 

PARITY EVEN 

DELAY 3.5-18 (depends on distance) 

LOGIC SENSE (3) 
HANDSHAKE 
CONTROL 
DATA 

THRESHOLD +2 volts 

MASTER OPTION None 



Registered trademark of the Tektronix Corporation 



312 SC34-0312 



Driver Card 




LOGIC SENSE (4) 


Set all to HIGH. 


STATUS 




HANDSHAKE 




INTERRUPT 




DATA 




INTERRUPT CHANNEL 


Use INTR 


AUX TSUP 


OUT 


ECHO 


OUT 


PARITY 


EVEN, BIT 8 IN 




AB to A, CD to D 



Before the terminal may be used with the computer, some other 
considerations are necessary. As noted above, the common 
interrupt line (INTR) should be used. It is recommended that 
you select the interrupt line (0 - 7) corresponding to the 
terminal address. If fewer than eight terminals are attached, 
some of the interrupt lines will not be used. All digital input 
and process interrupt lines must be terminated for proper oper- 
ation. If only one terminal is used, the DI terminations may 
have been installed by the manufacturer. With multiple termi- 
nals, all DI lines and PI lines should be terminated at the com- 
puter. A 1000-ohm resistor across the DI and PI inputs is 
recommended . 

When the terminal is powered on, it may be necessary to reset 
the terminal. The procedure is to put the LOCAL/LINE switch to 
LOCAL, back to LINE, and simultaneously depress the SHIFT and 
RESET keys. If the terminal does not respond during normal 
operation, it may be necessary to perform this sequence to 
reset the internal circuits. 

Since all Event Driven Executive terminal input /output is done 
with upper case ASCII character codes, the TTY LOCK key should 
be activated when using the terminal with the Series/1. The 
last items which merit special discussion are the GIN mode and 
the PAGE FULL BREAK strap options on the terminal control card 
(TC-2). The GIN termination should be set to NONE. Thus, when 
GIN mode is used, you must strike the appropriate key followed 
by carriage return (CR). The PAGE FULL BREAK termination may 
be set to either OUT or IN, depending on your preference. If it 
is IN, the terminal will always stop when a full page condition 
is reached. You must hit the PAGE RESET key in order to contin- 
ue. If it is OUT, the terminal will automatically go to the 
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home address and continue printing without erasing the screen 
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THE $DISKUT3 DATA MANAGEMENT UTILITY 

$DISKUT3 provides certain data management functions for disks 
and diskettes. It must be invoked from application programs. 

$DISKUT3 performs the following functions: 

• Allocates new data set(s) 

• Opens existing data set(s) 

• Deletes existing data set(s) 

• Releases unused space in existing data set(s) 

• Renames existing data set(s) 

• Sets end of data on existing data set(s) 

Any combination of these basic functions may be performed in 
one invocation of $DISKUT3. For example* it is more efficient 
to open two data sets and allocate two other data sets in one 
invocation of the program. It is quicker to perform multiple 
functions with one invocation of the program than to use sepa- 
rate invocations. This eliminates extra program load oper- 
at i ons . 

Note : $DISKUT3 may be invoked only by the LOAD Event Driven 
Language instruction. If it is invoked by use of the $L opera- 
tor command, $DISKUT3 immediately terminates. 



Special Considerations 



Some special considerations when using $DISKUT3 are: 

• An attempt to delete a data set which does not exist is con- 
sidered to be a successful operation 

• An attempt to allocate an existing data set is considered 
to be a successful operation if the following conditions 
are met : 

- The type attribute of the existing data set is the same 
as the allocation request, and 

The size of the existing data set is the same as the 
allocation request 

• If an allocation request is set for an existing data set 
and the type attributes match but the sizes do not, a 
return code is set indicating whether the data set is 
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smaller or larger than that requested. Refer to "$DISKUT3 
Return Codes" on page 319 for the return codes and their 
meanings. 

$DISKUT3 requires 4352 bytes of storage. 



Input to $DISKUT3 



Input to 0DISKUT3 consists of the following 



Initial Parameter 



An initial parameter is passed to $DISKUT3 when it is loaded. 
It is the address of a list of request block addresses. The end 
of the request block address list is indicated by a word of 
zero. 

The following diagram shows the relationship between the 

$DI5KUT3 input parameters! 

























LIST ADDRESS 


















REQUEST BLOCK 1 






REQUEST BLOCK ADDRESS 




WORD 1 




y 


s 


REQUEST BLOCK ADDRESS 






WORD 2 


END OF LIST (0) 


WORD 3 








WORD 4 












— > 


REQUEST BLOCK 2 
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Request Block Contents 



A request blocl< is four words. 

Word 1: The first word contains a binary value which indicates 
the function to be performed as follows: 



Code 



Funct i on 



F'l f 
F'2 f 
F^' 
F'4 1 
F T 5' 
F'6' 



Open a data set 

Allocate a new data set 

Rename a data set 

Delete a data set 

Release unused space in a data set 

Set end of data in a data set 



Word 2: The second word contains the address of the associated 
Data Set Control Block (DSCB). The DSCB describes the volume 
and data set being referenced. 

A DSCB must be specified for each function requested. The data 
set name (SDSCBNAM) and volume ($DSCBVOL) fields must be filled 
i n . 
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Word 3: The content of the third word varies according to the 
function requested as follows: 

Function Code Contents 

ALLOCATE F'nr' The data set size in records 

DELETE F'0 f Unused 

OPEN F'0 f Unused 

RELEASE F'nr 1 The new size of the data set in records 

must be less than the current data 
RENAME A(NEWNAME) The address of an eight-byte field 

containing the new data set name 
*SETEOD F f nb f The number of bytes in the last record 

(nr=value in the range of to 32,767) 

(nb=number of bytes) 

NEWNAME = address of a 1- to 8-character data set name 

* For SETEOD, $DISKUT3 assumes that the last record written or 
read is the end of data, that is, DSCB points to the next avail- 
able record in the data set. 



Word 4: The fourth word specifies the data set type attr i bute . 
The types that may be specified are: 

Code Type 



F'0 f Undefined 

F»l f Data 

F * 3 f Program 

F f -1 ' Unspec i f i ed 

For an ALLOCATE request, this is the type attribute to be 
assigned to the data set. For OPEN, RENAME, DELETE and RELEASE, 
code a -1. This causes SDISKUT3 to return the type attribute in 
word 4. Upon return from 0DISKUT3, word 4 is set to 0, 1, or 3, 
depending upon the attribute type of the data set specified. If 
this word is set to any value other than -1, SDISKUT3 compares 
the type attribute specified with the type attribute specified 
where the data set was allocated. If they do not match, a return 
code of 17 is set and $DISKUT3 terminates. In all cases except 
DELETE, the DSCB is returned in an open condition. Therefore, 
the ALLOCATE function need not be accompanied by an OPEN param- 
eter list or followed by a DSOPEN. 
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$DISKUT3 Return Codes 



The first word of the DSCB is posted with a return code to indi- 
cate whether the function was performed successfully (-1) or 
unsuccessfully. When a list of more than one function is speci- 
fied* each function requested is processed in the sequence pre- 
sented. A return code is posted for each function attempted. 

Caut i on » If more than one function which references the same 
DSCB is requested on a single $DISKUT3 invocation* the return 
code set reflects* only the results of the last function 

attempted using that DSCB. 

The return codes set by $DISKUT3 and their meanings are as fol- 
lows : 



Code 



Cond i t i on 



10 
11 

12 

13 
14 
15 
16 
17 

18 

19 
20 
21 



In va 

Volu 

Insu 

Insu 

Data 

requ 

Insu 

Di sa 

$EDX 

Data 

(DEL 

New 

Disk 

(ALL 

I/O 

(ALL 

I/O 

Data 

Inva 

In va 

M i sm 

(OPE 

Data 

requ 

SETE 

Load 

Tape 



lid 
me d 
ff ic 
f f ic 

set 
este 
ff ic 
How 
LIB 

set 
ETE, 
name 

i s 
OCAT 
er r o 
OCAT 
er r o 

set 
lid 
lid 
atch 
N, R 

set 
este 
OD o 

of 

dat 



requ 

oes 

i ent 

i ent 

air 

d al 

i ent 

ed d 

(All 

not 

REN 

po i 

busy 

E, D 

r wr 

E, D 

r re 

nam 

s i ze 

s i ze 

ed d 

ENAM 

air 

d al 

n ly 

$DIS 

a se 



est c 
not e 
spac 
spac 
eady 
loca t 
cont 
ata s 
f unc 
f oun 
AME, 
nter 

ELETE 
i t i ng 
ELETE 
a d i n g 
e i s 
spec 
spec 
ata s 
E, DE 
eady 
locat 
valid 
KUT3 
ts no 



ode 
x i s 
e i 
e i 
ex i 
i on 
i gu 
et 
tio 
d 

REL 
i s 



(not 1-5) 
t (All f unct i ons ) 
n library (ALLOCATE) 
n directory (ALLOCATE) 
sts - smaller than the 



ous space 
name, eg. 
ns) 



(ALLOCATE) 
$EDXV0L or 



EASE, OPEN) 
zero (RENAME) 



, RENAME, RELEASE) 

to disk 
, RENAME, RELEASE) 

from disk (All functions) 
all blanks (ALLOCATE, RENAME) 
ification (ALLOCATE) 
i f ication (RELEASE) 
et type 

LETE, RELEASE) 
exists - larger than the 
i on 

for data set of type 'data' 
failed ($RMU only) 
t supported 



Figure 44. $DISKUT3 return codes 
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Examp le : The following example illustrates the use of 
$DISKUT3. The use of all five functions (OPEN, ALLOCATE, 
RENAME, DELETE, and RELEASE) is shown. 



TASK PROGRAM GO , ( ( DS1 , EDX002 ) , ( DS2 , EDX003 ) ) 

GOPY DSCBEQU 
GO EQU * 



x LOAD $DISKUT3 IN THE 'NON-OVERLAY' MODE, TO OPEN 

* DATA SET 'DSY', ALLOCATE A NEW DATA SET 'DSX', AND 

* RENAME AN EXISTING DATA SET 'DS1' 
* 

LOAD $DISKUT3,LISTPTR1,EVENT=$DISKUT3 
WAIT $DISKUT3 



* COMPUTE CURRENT SIZE OF THE DATA SET AND USE IT AS A 

* CALLING PARAMETER FOR A 'RELEASE' RECORDS CALL TO 

* $DISKUT3. 

* THE ASSUMPTION IS THAT THE DATA SET HAS BEEN WRITTEN 

* SEQUENTIALLY. THEREFORE '$DSCBNXT' POINTS TO THE NEXT 
x RECORD TO BE USED IN THE DATA SET AND $DSCBNXT-1 IS 

* THE NUMBER OF RECORDS CURRENTLY IN USE. 
x 

SUBTRACT DSX+$DSCBNXT,l,RESULT=REQUEST5+4 

x LOAD $DISKUT3, DELETE DATA SET 'DS2', 
x AND RELEASE THE UNUSED SPACE IN 'DSX'. 
x 

LOAD $DISKUT3,LISTPTR2,EVENT=$DISKUT3,PART=ANY 

WAIT $DISKUT3 



PROGSTOP 



$DISKUT3 ECB SET INITIAL STATE TO ZERO 

* 

LISTPTR1 DC A(LISTl) POINTER TO LIST OF REQUEST 

x BLOCK POINTERS 

LISTPTR2 DC ACLIST2) POINTER TO ANOTHER LIST OF 

* REQUEST BLOCK POINTERS 
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$DISKUT3 Use Example (Continued) 



LIST1 



* 
LIST2 



DC 
DC 
DC 

DC 

DC 
DC 
DC 



REQUEST1 DC 
DC 
DC 
DC 

* 

REQUEST2 DC 
DC 
DC 
DC 

* 

REQUEST3 DC 
DC 
DC 
DC 

* 

REQUESTS DC 
DC 
DC 
DC 

* 

REQUEST5 DC 
DC 
DC 
DC 



DSCB 
DSCB 



REQUEST1) 
REQUEST2) 
REQUEST3) 
0' 

REQUESTS) 
REQUEST5) 
0' 

1 ' 

DSY) 
0' 
0' 

2' 

DSX) 
50' 
1' 

3' 

DS1) 

NEWNAME) 
-1 ' 

4' 

DS2) 

0' 

-r 

5' 

DSX) 
#-* ) 

-1 ' 



END OF LIST FLAG 



END OF LIST FLAG 

REQUEST IS FOR AN 'OPEN' 
DSCB IS 'DSY' 
UNUSED FOR OPEN REQUESTS 
UNUSED FOR OPEN REQUESTS 

REQUEST IS FOR AN 'ALLOCATE' 
DSCB IS 'DSX' 
ALLOCATE 50 RECORDS 
DATA SET TYPE IS 'DATA' 

REQUEST IS FOR A 'RENAME' 
DSCB IS 'DS1' 

ADDRESS OF NEW DATA SET NAME 
FOR RENAME REQUESTS 

REQUEST IS TO 'DELETE' 
DSCB IS 'DS2' 

UNUSED FOR DELETE REQUESTS 
FOR DELETE REQUESTS 

REQUEST IS TO 'RELEASE' SPACE 

DSCB IS 'DSX' 

NEW SIZE OF DATA SET 

FOR RELEASE REQUESTS 



DS#=DSY,DSNAME=DSY 
DS#=DSX,DSNAME=DSX 



NEWNAME 



DC CL8'RENAMED' NEW DATA SET NAME 

ENDPROG 

END 
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DSOPEN SUBROUTINE 

DSOPEN is a subroutine that can be copied into your program. It 
opens a disk; diskette* or tape data set for input and/or out- 
put operations by initializing a DSCB. Only one DSCB can be 
open to a tape at a time. If a tape has been opened* a close must 
be issued before another open can be requested. The results of 
DSOPEN processing are identical to the implicit open performed 
by $L or LOAD for data sets specified in the PROGRAM statement. 

Use DSOPEN to open a data set after the program has begun exe- 
cution. 

The following functions are performed! 

• Verifies that the specified volume is online 

• Verifies that the specified data set is in the volume 

• Ini t i al i zes the DSCB 

Using DSOPEN adds 1056 bytes to the size of your program. 

To use DSOPEN* you must first copy the source code into your 
program by coding! 



COPY PROGEQU 
COPY DDBEQU 
COPY DSCBEQU 



COPY DSOPEN 



During execution* DSOPEN is invoked via the CALL instruction as 
f ol lows : 



CALL DSOPEN, (dscb) 



Four optional parameters are also available. Three are error 
return addresses and the fourth is the address of an area in 
which DSOPEN saves a directory control entry (DCE) and the 
first directory member entry (DME). 
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The three error exit addresses are? 

1. Data set not found 

2. Invalid VOLSER 

3 . I/O error 

Since the exit addresses and the area address lie within your 
program* they must be initialized by your program before it 
calls DSOPEN. DSOPEN automatically sets them to zero. The 
labels of these fields can be found in the beginning of the 
DSOPEN copy code. Since the four parameters are addresses 
within your program* you must insert (move) them to the begin- 
ning of the DSOPEN routine before calling it. 

You must have a 256-byte work area labeled DISKBUFR in your 
program. The DSCB to be opened can be DS1-DS9 or a DSCB defined 
in your program via the DSCB statement. The DSCB must be 
initialized with a 6-character volume name in $DSCBVOL and an 
8-character data set name in $DSCBNAM. Other fields are 
ignored. The volume name can be specified as 6 blanks* which 
causes the IPL volume to be searched for the data set. 

After DSOPEN processing* #1 contains the number of the directo- 
ry record containing the member entry and #2 contains the dis- 
placement within DISKBUFR to the member entry. The fields 
$D5CBR3 and $ D S C B R 4 contain the next available logical record 
data* if any* placed in the directory by SETEOD. Refer to the 
comments in the DSOPEN copy-code for additional details. 
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SETEOD 



SETEOD is a copy cocfe routine that upda.tes the directory member 
entry (DME) of a disk directory to reflect the last record 
accessed up to the point in time SETEOD is invoked. Information 
on the DME can be found in Internal Design . The value in 
SDSCBNXT (relative record number to be used for next sequential 
READ or WRITE) is placed in the next available logical record 
field of the DME* so that it can be retrieved by subsequent 
calls of DSOPEN. 




SETEOD is used to indicate a logical end of file on disk. If 
your program does not SETEOD when creating or overwriting a 
file, the READ end of data exception will occur at either the 
physical end* or the logical endsetby some previous useof the 
data set . 

SETEOD can be used before* during or at the end of either input 
or output. It does not inhibit further I/O and can be used more 
than once. The only requirement, is that the DSCB passed as 
input must have been previously opened. 

The POINT function modifies the $DSCBNXT field. If SETEOD is 
used after a POINT* the relative record number pointed to 
becomes the value placed in the directory by SETEOD. 

SETEOD requires that the DSOPEN copy code, PROGEQU, and TCBEQU 
be included in your program. SETEOD uses the 256-byte DISKBUFR 
that is also used by DSOPEN. You invoke SETEOD as a subroutine 
through the Event Driven Language CALL statement* passing the 
DSCB and an I/O error exit routine pointer as parameters. 

Using SETEOD adds 318 bytes to the size of your program. 

To use SETEOD, you must first copy the source code into your 
program by coding: 
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COPY 


PROGEQU 


COPY 


TCBEQU 


COPY 


DDBEQU 


COPY 


DSCBEQU 


COPY 


DSOPEN 


COPY 


SETEOD 



Calling Sequence 



CALL 



SETEOD, (DS1) , (IOERROR) 



where 

DSl Names a previously opened DSCB 

IOERROR Names the I/O error exit routine 
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I PROCESSING THE EOV CONDITION 



Reading End-of-Volume (EOV) Labels 



The Event Driven Executive does not provide EOV processing. 
However, you may elect to add EOV processing to your applica- 
tion. To read a mul t i -vol ume data set the following steps can 
be used : 

1. Vary the tape online (specifying the SL option). 

2 . Execute the program* reading and processing data records. 

When the end of the data set is reached, the END= exit rou- 
tine of the READ statement will be entered. (If you do not 
use the END option, check for return code 10.) 

3. Perform a CONTROL CLSOFF operation in the END= exit or when 
return code 10 is encountered. 

If the return code from the CONTROL operation is a +33 (EOV 
encountered), then the close processing has detected an 
E0V1 label. This means more data is contained on another 
reel. The CONTROL completes by rewinding the tape and set- 
ting it offline. 

4. Issue a message (PRINTEXT) telling the operator to enter 
the volume serial number of the next tape. 

5. Read (READTEXT) the volume serial number supplied by the 
operator from the terminal and place it in the $DSCBV0L 
field of the DSCB used to READ the data set. 

6. Issue a message (PRINTEXT) telling the operator to place 
the next volume on an available tape drive and vary it 
online using $VARY0N. 

7. After the new tape has been varied online, call the DSOPEN 
subroutine to ready the data set for READ processing. 

Note: The new volume must be online ($VARY0N) before DSOPEN 
is called. 

J 8. Resume reading and processing as soon as the tape is opened 

For a sample of the operator console sheet for the reading EOV 
process, see "Console Output for EOV Processing" on page 327 
For a sample of a program to process an EOV condition while 
reading, see "Input EOV Processing Example" on page 329. 
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I Writing End-of-Volume (EOV) Labels 

To write EOV labels for mul t i -vo lume data sets the following 
steps can be used. 

| 1. Allocate or initialize a SL tape. 

2. Vary the initialized tape online using BLP and the proper 
file number to position the tape at the beginning of the 
data set (not the header label). 

| 3. Write data records to the tape. 

When the end of tape (EOT) is sensed (return code 24 during 
a WRITE operation), the END = exit specified on the WRITE 
statement is entered. If you do not wish to use an END 
exit* check for return code 24. 

Create the trailer label in the END= exit code of your 
application. (See "Chapter 11. Tape Organization" on page 
233 for the format of the EOV label.) 

Write one tapemark (CONTROL WTM). 

Write an 80-byte E0V1 record (WRITE). 

Write two more tapemarks (CONTROL WTM). 

Rewind the tape (CONTROL ROFF). 

Prompt the operator to mount and vary the tape online 
($VARYON) . 

The next tape must have been SL initialized with a dif- 
ferent volume name and the same data set name as previ- 
ous tape . 

5. Use DSOPEN to open tape. 

6. Resume writing data records. 

Console Output for EOV Processing 



The following is the console listing seen by the operator dur- 
ing EOV reading processing* as performed by the sample program 
"Input EOV Processing Example" on page 329. 
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> SVARYON 4C 
123456 ONLINE 

> $L TE5TE0V 

INPUTDS (NAME, VOLUME) : MYDATA , 1 2 3456 
TESTEOV 8P, 11:29:52, LP=0000 

BEGIN EOV TEST PROGRAM 

EOV ENCOUNTERED - ENTER VOL1 OF NEXT VOLUME 
654321 

REPLY Y WHEN THE VOLUME IS MOUNTED AND ONLINE 
? 

> SVARYON 4C 
654321 ONLINE 
?Y 

END EOV TEST PROGRAM 

TESTEOV ENDED AT 11:34:14 
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I Input EOV Processing Example 

| The following example illustrates input EOV processing: 

PROGX PROGRAM START , DS= (( INPUTDS ,??) ) 

START EQU * 

PRINTEXT 'SBEGIN EOV TEST PROGRAMS' 

LOOP EQU * 

READ DS1, BUFFER, 1 , 80 , ERROR = ERR 1 , END = CHKEND 
x 

xx 

xxx PROCESS THE DATA RECORD 
xx 

X 

GOTO LOOP GET NEXT RECORD 

ENDIT EQU x 

PRINTEXT 'SEND EOV TEST PROGRAMS' 

PROGSTOP 
x 

xx 

xxx CHECK FOR REAL END OF DATA OR ONLY END OF VOLUME (EOV) 
xx 

X 

CHKEND EQU x 

CONTROL DS1,CLS0FF 

IF (DS1,EQ,33) IF CLOSE FOUND AN EOV 
PRINTEXT 'SEOV ENCOUNTERED - ENTER VOL1 OF NEXT VOLUMES 1 
READTEXT NEWVOL 
MOVEA #1,DS1 

MOVE ($DSCBVOL,#l) , NEWVOL, (3, WORD) 
x SET DSOPEN ERROR EXITS 

MOVEA SDSNFND, ERRDSN 
MOVEA $DSBIODA,ERRIODA 
MOVEA $DSBVOL,ERRVOL 
MOVEA $DSIOERR,ERRIO 
x OPEN THE NEXT VOLUME 

PRINTEXT 'SREPLY Y WHEN THE NEXT VOLUME IS MOUNTED AND ONLINES' 
X READTEXT REPLY, ' ?» 

IF (REPLY-1, EQ=0, BYTE) , GOTO, X 
IF (REPLY, NE,C'Y' ), GOTO, END IT 
CALL DSOPEN, (DS1) 

GOTO LOOP RESUME PROCESSING DATA 

ENDIF 
GOTO ENDIT 
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* 

** DSOPEN ERROR EXITS 

* 

ERRDSN 



ERRIODA 

ERRVOL 

ERRIO 
ERRMSG 



MSG1 
MSG2 
MSG3 
MSG4 
* 

x 
ERR1 



EQU 

MOVEA 

GOTO 

EQU 

MOVEA 

GOTO 

EQU 

MOVEA 

GOTO 

EQU 

MOVEA 

EQU 

PRINTEXT 

PRINTEXT 

PRINTEXT 

GOTO 

TEXT 

TEXT 

TEXT 

TEXT 



DATA AREA 



EQU 

PRINTEXT 
PRINTNUM 
GOTO 



x 

BUFFER 
NEWVOL 
REPLY 



DATA 
TEXT 
TEXT 
COPY 
COPY 
COPY 
COPY 
DISKBUFR DC 

ENDPROG 
END 



MSGX,MSG1 

ERRMSG 

x 

MSGX,MSG2 

ERRMSG 

x 

MSGX,MSG3 

ERRMSG 

x 

MSGX,MSG4 

x 

•3DS0PEN ERROR -3' 

MSG1,P1=MSGX 

SKIP=1 

ENDIT 

'DATA SET NOT FOUND* 

'INVALID IODA' 

'VOLUME NOT FOUND' 

'I/O ERROR' 



x 

'3READ 
DS1 
ENDIT 



READ 
ERROR - RC= 



ERROR EXIT 



40F'0' 

LENGTH=6 

LENGTH=2 

DSOPEN 

DSCBEQU 

PROGEQU 

DDBEQU 

128F'0' 



80 BYTE BUFFER 
HOLDS NEW VOLUME # 
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SAMPLE USE OF BLP TO ACCESS ALL LABEL FIELDS 



The following is an example of .using BLP to access label 
fields. 

The program reads the V0L1, HDR1, and E0F1 labels of a standard 
label tape. The comments in the following example show where 
code to process labels can be inserted if desired. The sample 
program reads and ignores labels. 

************************************************************* 

* THE TAPE IS MOUNTED ON A BLP DRIVE WITH ID=TAPE01 * 
************************************************************* 
PR0G8 PROGRAM START , DS= (( XYZ , TAPEO 1 ) ) 

START EQU * 
************************************************************* 

* READ THE V0L1 LABEL (80 BYTES) INTO THE BUFFER * 

* WHERE IT CAN BE PROCESSED * 
************************************************************* 
** 

** 

READ DS1,BUFFER,1,80,ERROR=ERR1 
** 

*** INTERPRET THE VOL1 RECORDS FIELDS AS 

*** DESIRED FOR THE APPLICATION 

** 
************************************************************* 

* READ THE HDR1 LABEL (80 BYTES) INTO THE BUFFER * 

* WHERE IT CAN BE PROCESSED * 
************************************************************* 
** 

** 

READ DS 1, BUFFER, 1,80, ERROR =ERR1 
** 

*** INTERPRET THE HDR1 RECORDS FIELDS AS 

*** DESIRED FOR THE APPLICATION 
** 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x SKIP OVER ANY REMAINING BLOCKS IN THE HEADER * 

* GROUP AND THE TAPEMARK. THIS ALLOWS THE DATA * 
x TO BE ACCESSED * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XX 

CONTROL DS1,FSF 
xx 

XX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* PROCESS THE APPLICATION DATA ON TAPE x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XX 
XX 

LOOP EQU x 

READ DS1, BUFFER, 1 , 5 , ERROR=ERR2 , END=A L LDONE 

GOTO LOOP 
ALLDONE EQU * 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x PROCESS THE TRAILER LABEL GROUP x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XX 
XX 

READ DS1, BUFFER, 1, 80, ERR0R=ERR1 

XX 

xxx INTERPRET THE TRAILER LABELS 
xxx AS DESIRED FOR THE APPLICATION 
xx 

ENDIT EQU x 
PROGSTOP 



x 
ERR1 



ERR2 



EQU x 

PRINTEXT '3LABEL ERROR - RC= T 
PRINTNUM DS1 
GOTO ENDIT 
EQU x 

PRINTEXT '3READ ERROR - RC= f 
PRINTNUM DS1 

QUESTION '3DO YOU WANT TO CONTINUE? ', 
YES=LOOP,NO=ENDIT 



BUFFER DATA 40F f O f 
ENDPROG 
END 
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APPENDIX A. STORAGE ESTIMATING 



To calculate Series/1 storage requ i r ements , you must estimate 
storage required for: 

• The supervisor 

• The utility programs 

• Your application programs 



SUPERVISOR 



The supervisor requires storage for each of the items listed in 
Figure 4 5 on page 3 34, Figure 4 6 on page 336, and Figure 47 on 
page 337 for VI. or items listed in Figure 48 on page 338, 
Figure 49 on page 340, and Figure 50 on page 341 for V2.0. All 
numbers are in decimal notation and the unit is bytes. The num- 
bers in the left column are the resident program sizes. The 
numbers in the right column are initialization routines' used 
only, at IPL time. The total of the selected left column num- 
bers, when rounded upward to the next multiple of 256, repres- 
ent the size of the supervisor program that will reside in 
storage during system execution. You should allow from three 
to five per cent more storage than that calculated to provide 
for error correction. These calculations will be reasonably 
close to your actual configuration,* to get the actual size, 
perform a system generation of your supervisor. The actual 
size is the address (in hexadecimal) of EDXINIT as contained in 
the SLINK output. 
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Support for 



Res i dent 



Initialization 



Bas i c Super v i sor 

with Address Translator 6696 
without Address Translator 5866 
+8*(sum of MAXPROG values) ( ) 



212 



Disk or Diskette 
Disk(ette) Basic 
4962/4964 Support 
4963 Support 

Fixed Head Support 

Support 

per unit 

per secondary logical 



4963 
4966 
+ 178 
+ 32 
volume 
+128 per 



1182 

1176 

336 

1374 
( ) 



I/O task defined 



1424 



550 



Term i 

Bas 
W 
N 

497 
W 
N 
+ 

497 
W 
N 
+ 

401 
+ 

Vir 
+ 

Bas 
a 

Tel 
+ 

274 
+ 
+ 
+ 

ACC 
+ 



nals 
i c 

ith Add 
i thout 
9/4978 
ith Add 
i thout 
468 per 
3/4974 
ith Add 
i thout 
530 per 
3 type 
438 per 
tual Te 
426 per 
i c for 
ny TTY, 
etypewr 
446 per 
1/PROC 
5 74 per 
512 if 
512 if 
A ASCII 
498 per 



r Translator 5636 

Addr Translator 4656 

r Translator 2164 

Addr Translator 2038 
4979 or 4978 ( ) 

r Translator 716 

Addr Translator 640 

4973 or 4974 ( ) 
devices 480 

device ( ) 

rm i na Is 504 

terminal ( ) 

2741/PROCACCA 534 
iter 938 

teletypewr iter ( ) 

1446 

2741/PROC ( ) 

Correspondence code ( ) 

EBCD code ( ) 

Terminals 1626 

terminal ( ) 



488 
488 

1634* 
1634* 



500 



* 4978 only 



Figure 45. CPart 1 of 3) VI . 1 Supervisor Storage Requirements 
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Notes: 

1. The above numbers include 128 bytes per terminal for the 
optional Keyboard Task (ATTN=YES). 

2. Basic ASCII support is required for teletypewriter* ACCA> 
2741> and 4013 terminals. 
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Support for ' 



Res i dent 



Initialization 



Timers 

4953/4955 
49 52 



1080 
1048 



342 

180 



Binary Synchronous Access Method 

With Addr Translator 3284 

Without Addr Translator 3034 
+136 per line of any type ( ) 
+ 22 per mult i -line 

controller ( ) 

mult i -control ler ( ) 

Host Communication Facility 1910 



570 
570 



362 



Sensor Based Input /Output 
Bas i c 

With Addr Translator 1050 

Without Addr Translator 876 
Ana log Input 610 

+48 for first AI group ( ) 

+16 for each 

additional group ( ) 

Analog Output 66 

+16 per AO ( ) 

Digital Input and Output 892 

+38 per DI group ( ) 

+16 per DO group in 4982 ( ) 

+38 per DO group in IDIO ( ) 
Process Interrupt 164 

+156 per PI group ( ) 



180 
180 



EXIO Control 
Basic 

+ ( 32 + x ( 16 + n ) ) per device 
(x=maximum number of DCBs, 

n=number of residual status 

bytes transferred) 



686 



64 



Error Logg i ng 
Inc 1 uded 
Not Inc 1 uded 



330 
20 



Figure 46. (Part 2 of 3) VI. 1 Supervisor Storage Requirements 
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Support for: 



Res i dent 



Initialization 



Program/Machine Check Log 



250 



Relocating Loader 

With Addr Translator 
Without Addr Translator 



4004 
3044 



2250 
2250 



Floating Point Support 
Included 
Not Inc 1 uded 



610 
4 



Support of GETEDIT/PUTEDIT 

With Addr Translator 1402 

Without Addr Translator 1330 



Queue Processing Support 



258 



$DEBUG Support 



384 



Supervisor Patch Area 



256 



Figure 47. (Part 3 of 3) VI. 1 Supervisor Storage Requirements 

Note : The transient program loader requires an area 
of 3840 bytes which will be overlaid by the loaded 
programs . 
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Version 2.0,5719-XS2 
Support for 



R e s i d,e n t 



Initialization 



Basic Supervisor 

with Address Translator 6700 
without Address Translator 5862 
+8*(sum of MAXPROG values) ( ) 



228 



Disk or Di skette 

Disk(ette) Basic 1298 

4962/4964 Support 1176 

4963 Support 430 

4963 Fixed Head Support 
+178 per unit ( ) 

+ 32 per secondary volume ( ) 
4966 Support 1374 

4966 Tape Support 4362 

+130 per unit ( ) 

+128 per I/O task defined ( ) 



1432 



550 



384 



Termi 

Bas 
W 
W 

497 
1*1 
W 
+ 

497 
N 
W 
+ 

401 
+ 

Vir 
+ 

Bas 
a 

Tel 
+ 

274 
+ 
+ 
+ 

ACC 
+ 



nals 
i c 

ith Add 
i thout 
9/4978 
ith Add 
i thout 
468 per 
3/4974 
ith Add 
i thout 
530 per 
3 type 
438 per 
tual Te 
426 per 
i c for 
ny TTY, 
etypewr 
446 per 
1/PROC 
574 per 
512 if 
512 if 
A ASCII 
506 per 



r Translator 5638 

Addr Translator 4656 

r Translator 2202 

Addr Translator 2076 
4979 or 4978 ( ) 

r Trans lator 716 

Addr Translator 640 

4973 or 4974 C ) 

devices 480 

device ( ) 

rminals 504 

terminal ( ) 

2741/PROCACCA 536 

iter 4 38 

teletypewriter ( ) 

1446 

2741/PROC ( ) 

Correspondence code ( ) 

EBCD code ( ) 

Term i na Is 1114 

termi nal ( ) 



616 
616 

1634* 
1634* 



500 



* 4978 only 



| Figure 48. (Part 1 of 3) V2 . Supervisor Storage Requirements 
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I Notes; 



1. The above numbers include 128 bytes per terminal for the 
optional Keyboard Task (ATTN=YES). 

2. Basic ASCII support is required for teletypewriter* ACCA, 
2741, and 4013 terminals. 
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Support for: 



Res i dent 



Initialization 



Ti mer s 

4953/4955 
4952 



1078 
1038 



342 

180 



Binary Synchronous Access Method 

With Addr Translator 3282 

Without Addr Translator 3032 
+136 per line of any type ( ) 
+ 22 per mul t i -1 i ne 

control ler ( ) 

multi -controller ( ) 

Host Communication Facility 1928 



570 
570 



362 



Sensor Based Input/Output 
Bas i c 

With Addr Translator 1050 

Without Addr Translator 876 
Ana log Input 610 

+48 for first AI group ( ) 

+16 for each 

additional group ( ) 

Analog Output 66 

+16 per AO ( ) 

Digital Input and Output 932 

+38 per DI group ( ) 

+16 per DO group in 4982 ( ) 

+38 per DO group in IDIO ( ) 
Process Interrupt 164 

+156 per PI group ( ) 



178 
178 



EXIO Control 
Bas i c 

+ ( 32 + x ( 16 + n ) ) per device 
(x=maximum number of DCBs, 

n=number of residual status 

bytes transferred) 



698 



64 



Error Logging 
Included 
Not Included 



352 
20 



| Figure 49. (Part 2 of 3) V2.0 Supervisor Storage Requirements 
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Support for : 



Resident 



Initialization 



Program/Machine Check Log 



250 



Relocating Loader 

With Addr Translator 
Without Addr Translator 



4016 
3068 



2352 
2352 



Floating Point Support 
Included 
Not Included 



610 
4 



Support of GETEDIT/PUTEDIT 

With Addr Translator 1602 

Without Addr Translator 1330 



Queue Processing Support 



258 



$DEBUG Support 



384 



Supervisor Patch Area 



256 



| Figure 50. (Part 3 of 3) V2.0 Supervisor Storage Requirements 

Note : The transient program loader requires an area 
of 3840 bytes which will be overlaid by the loaded 
programs. 
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I UTILITY PROGRAMS 



The storage (in bytes rounded up to the next 

256 byte increment) required by the Event Driven 

Executive utility programs: 

SBSCTRCE 1792 

SBSCUT1 4864 

$BSCUT2 19712 

$COMPRES 3584 

$COPY 9216 

$C0PYUT1 9984 

SDASDI 25600 

$DEBUG 6912 

SDICOMP 11264 

$DIINTR 9728 

$DISKUT1 7680 

$DISKUT2 9728 (+1280 if printing error log) 

SDIUTIL 9216 

SDUMP 5888 

$EDIT1 9728 

SEDIT1N 11776 

SEDXASM 18944 (+5632 when assembling 

TERMINAL statements) 

SEDXLIST 6144 

$F0NT 5632 

SFSEDIT 22528 

SHCFUT1 2304 

SIAMUT1 12648 

$IMAGE 9728 

$INITDSK 6656 

$IOTEST 8960 

SJOBUTIL 5376 

SLINK 18688 

$LOG 5632 

$MOVEVOL 6144 

$PDS 1792 

SPFMAP 512 

$PREFIND 6144 

SPRT2780 2304 

SPRT3780 2560 

$RJE2780 9728 

$RJE3780 9984 

$TERMUT1 3072 

$TERMUT2 8192 

$TERMUT3 768 

$TRAP 5376 

$UPDATE 7936 

SUPDATEH 6400 
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Storage requirements for Version 2 utilities are the same as 
above except for the addition of the following: 



$RMU 
$TAPEUT1 



7680 

5632 (plus size of option) 



opt i on 



additional storage 



EX 
CD 
MT 
DP 
ST 
RT 
IT 
TA 



5632 

3584 (+ additional space requested) 

1280 

1792 (+ additional space requested) 
21248 
20480 

2560 

1792 
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APPLICATION PROGRAMS 



A reasonable estimate of the storage required, in bytes, for a 
programcan be made by totaling the following: 

1. Number of source statements * 10 = ( ) 

Includes operation code and parameters instruction plus 
incidental tables and buffers. This estimate was deter- 
mined from examination of the utility programs, 
written in Event Driven Executive instructions. 

2. Large tables and buffers = ( ) 

3. Graphics instruction cause subroutines to be added to 
your program. Add the following for the first occurrence 
of each instruction. 



CONCAT 


286 


GIN 


158 


PLOTCB 


16 


PLOTGIN 


186 


SCREEN 


474 


XYPLOT 


368 


YTPLOT 


368 



(+GIN if not already used) 

(+SCREEN and CONCAT if 

not already used) 
(+SCREEN if not already used) 



Graphics subroutines = ( ) 

Data formatting instructions cause subroutines to be 
included in your program. Add the number indicated for 
each first occurrences of the following specification 
included in a FORMAT statement referenced in the 
instructions. 
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INSTRUCTION 

* 



SPECIFICATION 



BYTES 



GETEDIT, PUTEDIT 

GETEDIT 

GETEDIT 

GETEDIT 

PUTEDIT 

PUTEDIT 

PUTEDIT 

PUTEDIT 

GETEDIT or PUTEDIT 



or FORMAT 



any 886 

alphamer i c 208 

float.pt. F or E 86 

i nteger 80 

alphameric 18 

float.pt. F 88 

float.pt. E 72 

integer 66 

any parenthetical 22 
express i on 



Formatting subroutines = 



( 



) 



5. Data formatting 
i nserted i n your 



i nstr uct i ons 
program. Add 



cause data areas to be 
B bytes for each occur- 



rence of the following instructions: 



GETEDIT 

B=16+(4*V)+A 

where V=the number of variables in 
A=6 if ACTION+IO, else A=0 



list 



PUTEDIT 

B=16+(4*V)+A 

where V=number of variables in list 
A=4 if ACTION=IO, else A=0 



FORMAT 

B=24+(4*L) 
where L=number 



of elements in FORMAT list 
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Formatting instructions = 



( 



) 



6. When the formatted screen image subroutines are included, 
program size is increased as follows: 



Module 



Size (Bytes) 



$IMOPEN (includes DSOPEN) 



1702 



$IMGEN (entry points 
SIMDEFN 
$IMPR0T 
$IMDATA 
$PACK 
SUNPACK) 



1030 



Total 



7. Programs using assembler language code will require one of 
more of the following subroutines to be included in the 
program J 



Modu le 



Size (Bytes) 



$$RETURN(entry point RETURN) 



38 



$$SVC(entry point SVC) 



64 



$EDXATSR(entry points) 
SETBUSY, 
SUPEXIT 



40 



Total 



8. When a local or a global (or both) ATTNLIST is coded, an 
extra TCB is generated. The size of this TCB is 128 bytes. 
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APPENDIX B. VI. 1 SUPERVISOR MODULE NAMES (CSECTS) 



CSECT EDXSYS 

ENTRY $START 

ENTRY RETURN 

ENTRY $DISKDDB 

ENTRY $IPLVOL 

ENTRY $TIMRTBL 

ENTRY STESTADR 

ENTRY STPDDB 

ENTRY $BSCADDR 

ENTRY EDXFLAGS 

ENTRY SVCFLAGS 

ENTRY $SBPITAB 

ENTRY LCBA 

ENTRY SVCBFIN 

ENTRY SVCBFOUT 

ENTRY SVCRTRN 

ENTRY SVCL1 

ENTRY SVCLT 

ENTRY SVCL2 

ENTRY SVCL3 

ENTRY SVCLSB 

ENTRY SVCIAR 

ENTRY SVCAKR 

ENTRY SVCL5R 

ENTRY SVCRO 

ENTRY SVCR1 

ENTRY SVCR2 

ENTRY SVCR3 

ENTRY SVCR4 

ENTRY SVCR5 

ENTRY SVCR6 

ENTRY SVCR7 

ENTRY SVCIIAR 

ENTRY 5VCILSB 

ENTRY SVCIAKR 

ENTRY SVCIL5R 

ENTRY SVCIRO 

ENTRY SVCIR1 

ENTRY SVCIR2 

ENTRY SVCIR3 

ENTRY SVCIR4 

ENTRY SVCIR5 

ENTRY SVCIR6 

ENTRY SVCIR7 

ENTRY UNCHAKR1 

ENTRY UNCHSAV6 

ENTRY SYCPARMS 

ENTRY CMDTABLE 

CSECT EDXSVCX 

ENTRY SVC 

ENTRY SVCA 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTY 



SETBUSY 

SVCI 

WAIT 

ENQ 

DEQ 

POST 

ATTACHX 

ATTACH 

DETACH 

SUPEXIT 

SUPEXTRL 

SUPLVLXO 

SATTACH 

SDETACH 

SCWAIT 

SWAIT 

SPOST 

SRESETEV 

SENQ 

SDEQ 

STPTASK1 

STPTASK2 

UNCHAIN 

$CP 

LPGMXP1 

LPGMXP2 

$DBUGNUC 

$TESTCOM 

STESTIN 

STESTOUT 

$TRCSIA 

$TRCLSB 

EDXALU 

$EXEC 

#NOP 

CMDSETUP 

CMD$TEST 

#IFB 

#IFW 

#IFDW 

#IFTEST 

SCOMPE 

$COMPNE 

$FINDE 

$FINDNE 

CGOTO 

BRANCH 

SDOLOOP 

SCONTINU 

SAV222CR 

SAV424CF 

SAV444CR 

SAV224CR 

SAX222 

SA222C 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



SA222 

SSX222 

SS222C 

SS222 

SM222 

SM222C 

SD222 

SD222C 

GETPAR3 

GETCNT 

SA424 

SA424C 

SS424 

SS424C 

SM424 

SM424C 

SD424 

SD424C 

SX444 

SX444C 

SX224R 

SX224CR 

SD422R 

SD422CR 

M0V1 

MOV1C 

AND1 

AND1XX 

IOR1 

IOR1XX 

EOR1 

EOR1XX 

SHR1 

SHR1XX 

SHL1 

SHL1XX 

MOV2 

MOV2C 

AND2 

AND2XX 

IOR2 

IOR2XX 

EOR2 

EOR2XX 

SHR2 

SHR2XX 

SHL2 

SHL2XX 

M0V4 

M0V4C 

AND4 

AND4XX 

I0R4 

I0R4XX 

E0R4 
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ENTRY E0R4XX 

ENTRY SHR4 

ENTRY SHR4XX 

ENTRY SHL4 

ENTRY SHL4XX 

ENTRY MOVEXP 

ENTRY SCALL 

ENTRY SRETURN 

ENTRY BFRCK 

ENTRY USER 

CSECT DISKIO 

ENTRY DISKRW 

ENTRY DISKIO00 

ENTRY DISKER09 

ENTRY DCBRETRN 

ENTRY DISKFLIH 

ENTRY DFLIH04 

ENTRY DISKERR1 

ENTRY DISKERR2 

ENTRY DISKERR3 

ENTRY DISKERR5 

ENTRY DISKER6B 

ENTRY DISKERR7 

ENTRY DISKPOST 

ENTRY VARYON 

ENTRY VARYOFF 

ENTRY VARYWORD 

ENTRY VARYQCB 

ENTRY VARYDSCB 

CSECT D49624 

ENTRY D49624AT 

ENTRY D4962IH1 

ENTRY DFLIH50 

ENTRY DISKATTN 

ENTRY DATTNOO 

CSECT D4963A 

ENTRY D4963AT 

ENTRY CNTLBUSY 

ENTRY D4963IH1 

ENTRY CNTLEND 

ENTRY D4963ATN 

ENTRY D4963AT1 

CSECT D4966A 

ENTRY D4966AT 

ENTRY D4966B 

ENTRY D4966ATN 

ENTRY D4969A 

ENTRY VRY4966 

CSECT RLOADER 

ENTRY LOADPGM 

ENTRY LPGMXPA 

ENTRY LOADPGMO 

ENTRY LOADEXIT 

ENTRY LPGMXPB 

ENTRY ENDCODE 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 



LOADQCB 

LOADORG 

LCMDKEY 

LCMDTGT 

GETMAIN 

FREEMAIN 

$ACTIVE 

GOTOTABL 

$CANCEL 

STOP 

STOPTASK 

IOLOADER 

IOLOAD 

IOUNLOAD 

IOSEXIO 

EXOPEN 

EXIO 

EXFLIH 

EXIOCLEN 

EDXTIO 

$DPEND 

PRSKSP 

CURCTL 

CTLXFER 

PRTEXT 

NXTCOMD 

NXTCOMD1 

RDTEXTL 

RDTEXT 

QUESTION 

PRTNUM2S 

PRTNUM2 

PRTNUM4S 

PRTNUM4 

GETVAL2 

GETVAL4 

KBTASK 

ENDATTN 

TERMOUT 

TERMINT 

DECSCAN 

FLDCLEAR 

BDCWORD 

DCBWORD 

EBBICVT 

EDXTERMQ 

ENQDEQT 

QUTERMIN 

QUTERM 

DQTERM 

DQTERMIN 

DQTERMB 

DEQTERMS 

EDXFLOAT 

FADDOIO 



(NOFLOAT has same entry points) 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 



FADDOOO 

FADDIOO 

FADDOOl 

FADDOll 

FADD101 

FADD110 

FADD111 

FSUBOOO 

FSUBIOO 

FSUBOOl 

FSUBOIO 

FSUBOll 

FSUB101 

FSUB110 

FSUB111 

FLOATERR 

FMPYOOO 

FMPYOOl 

FMPYOIO 

FMPYOll 

FMPY110 

FMPYIOO 

FMPY1U 

FMPY101 

FDIVOOO 

FDIVOOl 

FDIVOIO 

FDIVOll 

FDIV110 

FDIVIOO 

FDIV111 

FDIV101 

FLTCONV 

M0VFP4 

M0VFP8 

IFFLOAT 

IFFLOATL 

EDXFLEND 

EBFLCVY 

EBFLDBL 

EBFLSTD 

FLEBDBL 

FLEBSTD 

IOSTTY 

WRTTY 

RDTTY 

IATTY 

IOS4979 

104979 

104978 

IA4979 

IA4978 

I0S4974 

104974 

104973 
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ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 



IA4974 

IA4973 

IOSVIRT 

IOVIRT 

IAVIRT 

IOS4013 

WR4013 

RD4013 

IA4013 

IOS2741 

WR2 741 

RD2741 

IA2741 

IAPROC 

IOSTERM 

IOTERM 

ASCIITAB 

TRASCII 

EBASCII 

TREBASC 

EBCDTAB 

TREBCD 

CRSPTAB 

TRCRSP 

EDXTIMER 

TIMEROIA 

TIMER1IA 

SETIMER 

WAITIMER 

INTIMEX 

INTIME 

GTIMDATE 

PRINTIME 

WHATIME 

SETCLOCK 

EDXTIMR2 

TIMER Ola 

TIMRLSB 

SETIMER 

WAITIMER 

INTIMEX 

INTIME 

GTIMDATE 

PRINTIME 

WHATIME 

SETCLOCK 

BSCAM 

BSCENTRY 

BSCIA 

DEQBSC 

IOSACCA 

WRACCA 

RDACCA 

IAACCA 

ACCALS 
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CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 



SBAI 

SAI 

SAIA 

SAIX 

SAIS 

AHA 

SBAO 

SAO 

SAOA 

SAOX 

SBDIDO 

SDI 

SDIA 

SDIX 

SDIS 

SDO 

SDOA 

SDOX 

SDOS 

SDOP 

DIIA 

DOIA 

SBPI 

PIIALEX 

PIIAG17 

PIIABIT 

SBCOM 

SBERR 

GETDDB 

CKEXIT 

QIO 

TPCOM 

STP 

$TPIA 

$TPDDB1 

TPSTATS 

IDCBSCSS 

IDCBRES 

IDCBSIO 

SYSLOG 

LCB 

$LOGIA 

SLOGTSK 

$SLOGIA 

$SLOGTSK 

$SLOGPRM 

N05YSL0G 

CIRCBUFF 

CIRSTR 

C I R I N 

CIREND 

CIRCNT 

CIRESIZ 

CIRESTR 

EDXSTART 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

ENTRY 



INITTASK 

PCHKSIA 

PCHKLSB 

SFTKSIA 

STARTPGM 

EDXINIT 

START 

$EDXINIT 

INITEXIT 

DISKINIT 

DISKBUFR 

DSKPREP2 

PREPIDCB 

DSKINIT1 

D66INIT 

RW4963ID 

ID4963IH 

TERMINIT 

TERMERRX 

INIT4978 

BSCINIT 

$BSCARAM 

SACCARAM 

INIT4013 

LOADINIT 

$DSNFND 

$DSIOERR 

DSOPEN 

SBIOINIT 

TPINIT 

TIMRINIT 

EXIOINIT 

CLOKINIT 

TIMRINIT 
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APPENDIX C. V2.0 SUPERVISOR MODULE NAMES CCSECTS) 



CSECT EDXSYS 

ENTRY $START 

ENTRY RETURN 

ENTRY SDISKDDB 

ENTRY $IPLVOL 

ENTRY $TIMRTBL 

ENTRY STESTADR 

ENTRY $TPDDB 

ENTRY $BSCADDR 

ENTRY EDXFLAGS 

ENTRY SVCFLAGS 

ENTRY $SBPITAB 

ENTRY LCBA 

ENTRY SVCBFIN 

ENTRY SVCBFOUT 

ENTRY SUPRTRN 

ENTRY SVCL1 

ENTRY SVCLT 

ENTRY SVCLT2 

ENTRY SVCL3 

ENTRY SVCLSB 

ENTRY SVCIAR 

ENTRY SVCAKR 

ENTRY SVCLSR 

ENTRY, SVCRO 

ENTRY SVCR1 

ENTRY SVCR2 

ENTRY SVCR3 

ENTRY SVCR4 

ENTRY SVCR5 

ENTRY SVCR6 

ENTRY SVCR7 

ENTRY SVCIIAR 

ENTRY SVCILSB 

ENTRY SVCIAKR 

ENTRY SVCILSR 

ENTRY SVCIRO 

ENTRY SVCIR1 

ENTRY SVCIR2 

ENTRY SVCIR3 

ENTRY SVCIR4 

ENTRY SVCIR5 

ENTRY SVCIR6 

ENTRY 5VCIR7 

ENTRY UNCHAKR1 

ENTRY UNCHSAV6 

ENTRY SYCPARMS 

ENTRY CMDTABLE 

CSECT EDXSVCX 

ENTRY SVC 

ENTRY SVCA 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
CSECT 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 



SETBUSY 

SVCI 

HAIT 

ENQ 

DEQ 

POST 

ATTACHX 

ATTACH 

DETACH 

SUPEXIT 

SUPEXTRL 

SUPLVLXO 

SATTACH 

SDETACH 

SCWAIT 

SWAIT 

SPOST 

SRESETEV 

SENQ 

SDEQ 

STPTASK1 

STPTASK2 

UNCHAIN 

$CP 

LPGMXP1 

LPGMXP2 

EDXALU 

#IFB 

#IFDN 

#IFW 

tIFTEST 

SCOMPE 

SCOMPNE 

$FINDE 

$FINDNE 

CGOTO 

BRANCH 

$EXEC 

#NOP 

CMDSETUP 

CMDSTEST 

SDOLOOP 

SCONTINU 

SAV222CR 

SAV424CF 

SAV444CR 

SAV224CR 

SAX222 

5A222C 

SA222 

SSX222 

SS222C 

S5222 

SM2 2 2 

SM222C 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



5D222 

SD222C 

GETP.AR3 

GETCNT 

SA424 

SA424C 

SS424 

SS424C 

SM424 

SM424C 

SD424 

SD424C 

SX444 

SX444C 

SX224R 

SX224CR 

SD422R 

SD422CR 

M0V1 

MOV1C 

AND1 

AND1XX 

IOR1 

IOR1XX 

EOR1 

EOR1XX 

SHR1 

SHR1XX 

SHL1 

SHL1XX 

MOV2 

MOV2C 

AND2 

AND2XX 

IOR2 

IOR2XX 

EOR2 

EOR2XX 

SHR2 

SHR2XX 

SHL2 

SHL2XX 

M0V4 

M0V4C 

AND4 

AND4XX 

I0R4 

I0R4XX 

EOR4 

E0R4XX 

SHR4 

SHRAXX 

SML4 

SHL4XX 

MOVEXP 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 



SCALL 

SRETURN 

BFRCK 

USER 

EDXSTART 

INITTASK 

PCHKSIA 

PCHKLSB 

SFTKSIA 

STARTPGM 

DISKIO 

DISKRW 

DISKRW05 

TAPE060 

DISKIO00 

DISKER09 

DCBRETRN 

DISKFLIH 

DFLIH04 

DISKERR1 

DISKERR2 

DISKERR3 

DISKERR5 

DISKER6B 

DISKERR7 

DISKPOST 

VARYON 

VARYOFF 

VARYWORD 

VARYQCB 

VARYDSCB 

D49624 

D49624AT 

D4962IH1 

DFLIH50 

DFLIH54 

DISKATTN 

DATTNOO 

D4963A 

D4963AT 

CNTLBUSY 

D4963IH1 

CNTLEND 

D4963ATN 

D4963AT1 

D4966A 

D4966AT 

D4966B 

D4966ATN 

VRY4966 

D4969A 

D69DHPT 

TAPEIO 

TAPEIOOO 

TSOPEN 
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ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 



ACLOSE 

OPNCLS 

VRY4969 

IOSEXIO 

EXOPEN 

EXIO 

EXFLIH 

EXIOCLEN 

EDXTIO 

$DPEND 

PRSKSP 

CURCTL 

CTLXFER 

PRTEXT 

NXTCOMD 

NXTCOMD1 

RDTEXTL 

RDTEXT 

QUESTION 

PRTNUM2S 

PRTNUM2 

PRTNUM4S 

PRTNUM4 

GETVAL2 

GETVAL4 

KBTASK 

ENDATTN 

TERMOUT 

TERMINT 

DECSCAN 

FLDCLEAR 

DBCWORD 

EBBICVT 

EDXTERMQ 

ENQDEQT 

QUTERMIN 

QUTERM 

DQTERM 

DQTERMIN 

DQTERMB 

DEQTERMS 

IOS4979 

104979 

104978 

IA4979 

IA4978 

I0S4974 

104974 

104973 

IA4974 

IA4973 

IOSTERM 

IOTERM 

IOSTTY 

WRTTY 
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ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 



RDTTY 

IATTY 

IOSACCA 

WRACCA 

RDACCA 

IAACCA 

ACCALS 

IOS4013 

WR4013 

RD4013 

IA4013 

I0S2741 

WR2741 

RD2741 

IA2741 

IAPROC 

IOSVIRT 

IOVIRT 

IAVIRT 

ASCIITAB 

TRASCII 

EBASCII 

TREBASC 

EBCDTAB 

TREBCD 

CRSPTAB 

TRCRSP 

EDXTIMER 

TIMEROIA 

TIMER1IA 

SETIMER 

WAITIMER 

WAITIMER 

INTIME 

GTIMDATE 

PRINTIME 

WHATIME 

SETCLOCK 

EDXTIMR2 

TIMEROIA 

TIMRLSB 

SETIMER 

WAITIMER 

INTIMEX 

INTIME 

GTIMDATE 

PRINTIME 

WHATIME 

SETCLOCK 

BSCAM 

BSCENTRY 

BSCIA 

DEQBSC 

TPCOM 

STP 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 



STPIA 

$TPDDB1 

TPSTATS 

IDCBSCSS 

IDCBRES 

IDCBSIO 

SBCOM 

SBERR 

GETDDB 

CKEXIT 

IOLOADER 

IOLOAD 

IOUNLOAD 

SBAI 

SAI 

SAIA 

SAIX 

SAIS 

AHA 

SBAO 

SAO 

SAOA 

SAOX 

SBDIDO 

SDI 

SDAI 

SDIX 

SDIS 

SDO 

SDOA 

SDOX 

SDOS 

SDOP 

DIIA 

DOIA 

SBPI 

PIIALEX 

PIIAG17 

PIIABIT 

SYSLOG 

LCB 

$ LOG I A 

$LOGTSK 

SSLOGIA 

$SLOGTSK 

OSLOGPRM 

NOSYSLOG 

SLOGTSK 

$LOGIA 

$SLOGTSK 

OSLOGIA 

$SLOGPRM 

CIRCBUFF 

CIRSTR 

CIRIN 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



CIREND 

CIRCNT 

CIRESIZ 

CIRESTR 

RLOADER 

LOADPGM 

LPGMXPA 

LOADPGMO 

LOADEXIT 

LPGMXPB 

ENDCODE 

LOADQCB 

LOADORG 

LCMDKEY 

LCMDTGT 

GETMAIN 

FREEMAIN 

SACTIVE 

GOTOTABL 

SCANCEL 

STOP 

STOPTASK 

EDXFLOAT 

FADD010 

FADD000 

FADD100 

FADD001 

FADDOll 

FADD101 

FADD110 

FADD111 

FSUBOOO 

FSUB100 

FSUB001 

FSUBOIO 

FSUBOU 

FSUB101 

FSUB110 

FSUB111 

FLOATERR 

FMPYOOO 

FMPYOOl 

FMPYOIO 

FMPYOU 

FMPY110 

FMPYIOO 

FMPY111 

FMPY101 

FDIVOOO 

FDIVOOl 

FDIVOIO 

FDIVOll 

FDIVUO 

FDIVIOO 

FDIV111 



364 SC34-0312 



ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 



FDIV101 

FLTCONV 

M0VFP4 

M0VFP8 

IFFLOAT 

IFFLOATL 

EDXFLEND 

EBFLCVY 

EBFLDBL 

EBFLSTDD 

FLEBDBL 

FLEBSTD 

QIO 

$DBUGNUC 

STESTCOM 

STESTIN 

STESTOUT 

$TRCSIA 

$TRCLSB 

EDXINIT 

START 

SEDXINIT 

INITEXIT 

DISKINIT 

DISKBUFR 

DSKPREP2 

PREPIDCB 

DSKINIT1 

D66INIT 

D69INIT 

TAPEINIT 

LOADINIT 

$DSNFND 

$DSIOERR 

DSOPEN 

RW4963ID 

ID4963IH 

TERMINIT 

CCBFIXRT 

TERMERRX 

INIT4978 

INIT4013 

$ACCARAM 

BSCINIT 

$BSCARAM 

TPINIT 

TIMRINIT 

SBIOINIT 

EXIOINIT 

CLOKINIT 
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APPENDIX P. PROGRAM PREPARATION EXAMPLE 



This four -part appendix contains a detailed example of how to 
code and prepare an interactive terminal program. 

1. Part I shows the development of an Event Driven Language 
program. The program displays a terminal screen generated 
by the $IMAGE utility and accepts operator input. 

2. Part II shows the full screen image being defined and 
stored in a data set using the $ IMAGE utility program. 

3. Part III shows the program being prepared for execution 
using the session manager to invoke the program prepara- 
tion utilities. The program is compiled* listed, link- 
edited with the system-supplied subroutines, and converted 
to an executable load module. 

4 . Part IV shows a batch job stream procedure being used to 
prepare the program for execution. This step duplicates 
the processing done in part III for illustrative purposes. 
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GETIMAGE 



Start 



START 



Display Initial 
Operator 
Instructions 



CHECK 



Wait For 
Operator 
Response 



PF Key, 




END IT 



ATTN "END" 



PROGSTOP 



Display 

Static 

Screen 



WAITONE 



Wait For 
Operator 
Response 




PF Key 



Erase 
Corresponding 
Student Data 



READ 



ENTER Key 




Yes 



Erase Prompt 
Area And All 
Student Data 



CLEANUP 



Erase 

Entire 

Screen 



Figure 51. Flowchart of program operations 
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PART I. TERMINAL PROGRAM CODING EXAMPLE 



In this part of the appendix* a sample program is developed. 
The program formats the display screen of the terminal used to 
load it and accepts data entered onto the screen by the opera- 
tor. Figure 51 on page 368 depicts the operations performed by 
the program . 



Processing the Initial Operator Instructions 



The initial portion of the program displays instructions 
requiring the operator to (1) end the program, or (2) bring up 
the data entry screen (static-screen) and proceed. To obtain 
the operator's decision* the program uses the ATTNLIST facili- 
ty* so an ATTNLIST statement is required. 

This portion of the program operates the terminal in roll- 
screen mode, with no history lines defined (NHIST=0). The rest 
of the program uses the terminal in static-screen mode. A sepa- 
rate IOCB is required for each mode. Figure 52 shows the two 
IOCB statements* the ATTNLIST statement* and the associated 
attention routines. 



XMPLSTAT 


PROGRAM 


START 


I0CB1 


IOCB 


NHIST=0 


I0CB2 


IOCB 


SCREEN=STATIC 




ATTNLIST 


(END, OUT, $PF, STATIC) 


START 


• 




OUT 


POST 
ENDATTN 


ATTNECB.l 


STATIC 


POST 
ENDATTN 

END PROG 
END 


ATTNECB,-! 



Figure 52. Code for IOCB f s and attention handlers 
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Displaying the Initial Operator Instructions 



The portion of the program that processes the initial operator 
instructions is shown in Figure 53: Execution begins at 
location START. The ENQT directed to I0CB1 changes NHIST=12 to 
NHIST=0 (the terminal is assumed to be a 4979 with NHIST=12 
normally in effect). 

Note : Because no terminal name is specified in the IOCB* the 
terminal enqueued defaults to the terminal used to load the 
program . 

The five PRINTEXT statements following the ENQT statement dis- 
play the program title and initial operator instructions on the 
screen. Because operator control has been defined through an 
ATTNLIST, and ATTNLIST is inhibited while the terminal is 
enqueued* the last PRINTEXT is followed by a DEQT> which rees- 
tablishes the ATTNLIST. 



XMPLSTAT 


PROGRAM 


I0CB1 


IOCB 


I0CB2 


IOCB 




ATTNLIST 


START 


ENQT 




PRINTEXT 




PRINTEXT 




PRINTEXT 




PRINTEXT 




PRINTEXT 




DEqT 


CHECK 


WAIT 




IF 


ENDIT 


PROGSTOP 



START 

NHIST=0 

SCREEN=STATIC 

(END, OUT, $PF, STATIC) 

IOCB1 

•CLASS ROSTER PROGRAM' ,SPACES=15,LINE=0 

•HIT "ATTN" AND ENTER "END" TO END',SKIP=2 

■ THE PROGRAM' 

'HIT ANY PROGRAM FUNCTION KEY T0',SKIP=2 

' BRING UP THE ENTRY SCREEN' 

ATTNECB, RESET 
(ATTNECB,EQ,l),GOTO,ENDIT 



OUT POST ATTNECB, 1 

ENDATTN 
STATIC POST ATTNECB, -1 

ENDATTN 
ATTNECB ECB 



Figure 53. Code to process initial operator instructions 
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Malting for an Operator Response 



The ECB at location ATTNECB compiles with an initial value in 
the first word of -1, indicating "event complete". The WAIT at 
location CHECK is coded with a RESET operand, which resets the 
first word of the ECB at ATTNECB to zero before the WAIT is exe- 
cuted. A zero in the first word of an ECB indicates "event not 
occurred", so the WAIT at CHECK suspends task XMPLSTAT, waiting 
on event ATTNECB. 

Note : If the WAIT had been coded without the RESET operand* it 
would have executed as a no operation. 

After the program title and initial operator instructions have 
been written to the terminal (while the program is waiting at 
CHECK for the operator response), the screen looks like 
F i gure 54 . 



LINE 
NUMBER 





1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



CLASS ROSTER PROGRAM 
HIT 'ATTN' AND ENTER 'END' TO END THE PROGRAM 
HIT ANY PROGRAM FUNCTION KEY TO BRING UP THE ENTRY SCREEN 



0000000001 1 111111 1 12222222222333333333344444444445555555555666666666677777777778 
12345678901234567690123456789012345678901234567890123456789012345678901234567890 



Figure 54. Screen showing initial operator instructions 
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Processing the Operator Response 



If the operator presses the ATTN key t enters "END" and presses 
the ENTER key* the attention routine at OUT executes* posting 
the first word of the ECB at ATTNECB with a +1. Because a value 
other than zero in the first word of the ECB indicates "event 
complete"* the WAIT operation terminates. Execution continues 
with the IF statement following the WAIT* which transfers con- 
trol to location ENDIT. 

If the operator wants to proceed with the CLASS ROSTER PROGRAM 
and presses a PF key, the attention routine at STATIC posts 
ATTNECB with a value of -1. The WAIT terminates, the IF that 
follows does not transfer control to ENDIT (because ATTNECB is 
not = +1), and execution continues with the static -screen 
portion of the program. 
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Formatting the Static Screen Image 



Figure 55 shows the static-screen image that is used by the 
program . 



LINE 
NUMBER 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



ENTER KEY = PAGE COMPLETE 


PF1 = DELETE ENTRY 1 


PF2 = DELETE ENTRY 2 


PF3 = DELETE ENTRY 3 


PF4 = DELETE ENTRY 4 




CLASS NAME: 


INSTRUCTOR NAME: 




NAME: 


STREET: 
CITY : 
STATE : 




NAME: 


STREET: 
CITY : 
STATE : 




NAME: 


STREET: 
CITY : 
STATE : 




NAME: 


STREET: 
CITY : 
STATE : 





CHAR 000000000 I 1 1 1 1 1 1 1 1 12222222222333333333344444444445555555555666666666677777777778 
POS 12345678901234567890123456789012345678901234567890123456789012345678901234567890 

Figure 55. Static-screen image used by program 



Note : The image is defined and saved in a data set in part II. 

The statements required to access the stored screen image are 
explained in the following pages. 
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Reading the Stored Screen Image ($IMQPEN Subroutine) 



Refer to Figure 56 for the following discussion. 

The first step in using a stored screen image is to read the 
image data set into the application program. The $IMOPEN sub- 
routine reads the data set into the buffer at IMAGEBUF. The 
name of the data set and volume is specified in a TEXT state- 
ment, and the label of the TEXT statement is passed to $IMOPEN 
as the first parameter in the CALL. The second parameter is the 
label of the buffer which is to receive the image. Both parame- 
ters must be enclosed in parentheses. The buffer is defined by 
a BUFFER statement. Data set VIDE01 will be two records in 
length* so IMAGEBUF is defined as 512 bytes. 

$IMOPEN returns a code in "taskname+2" . The application pro- 
gram has the responsibility to check for proper completion (-1 
return code). The example program includes a completion code 
check and error routine. 



GETIMAGE 


CALL 


$IMOPEN , ( DSETNAME ) , ( IMAGEBUF ) 




IF 


(XMPLSTAT+2,NE,-1> 




MOVE 


ERRCODE.XMPLSTAT+2 




PRINTEXT 


•aiMAGE OPEN ERROR, CODE =' 




PRINTNUM 


ERRCODE 




QUESTION 


'3RETRY OPEN ? ' ,YES=GETIMAGE,NO=ENDIT 




ENDIF 




ERRCOOE 


DATA 


F'O' 


IMAGEBUF 


BUFFER 


5 12, BYTES 


DSETNAME 


TEXT 


'VIDE01,EDX002' 



Figure 56. Coding to read stored screen image 
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Setting IOCB Dimensions ($IMDEFN Subroutine) 



Figure 57 on page 376 shows a CALL to subroutine SIMDEFN which 
fills in the specified IOCB with the dimensions of the screen 
image in the buffer. The CALL to $IMDEFN is not a required func- 
tion; the IOCB may be enqueued without first calling the sub- 
routine. By calling $IMDEFN, you are assured that the IOCB has 
the proper dimensions for the screen in the buffer. This ena- 
bles you to change the dimensions in the stored screen image 
(using $IMAGE) without having to change the program. 



Transferring the Stored Image to the Screen 
Subrout i nes ) 



($IMPROT/$IMDATA 



Refer to Figure 57 on page 376 for the following discussion. 

Before the screen can be displayed, the terminal must be 
enqueued as a static-screen device. The ENQT I0CB2 instruction 
accomplishes that. 

Now that the terminal is enqueued, the screen image in the 
buffer can be displayed. The TERMCTRL BLANK following the ENQT 
blanks the screen, preventing flicker while the image is writ- 
ten. The CALL of subroutine $IMPROT transfers all the protected 
data from the image buffer to the screen, and the call to 
$IMDATA transfers the unprotected data. 

Note : If a screen image consists of all protected or all 
unprotected data, only the appropriate subroutine need be 
called. 

The PRINTEXT following the last CALL positions the cursor at 
the first data entry field, and TERMCTRL DISPLAY displays the 
screen . 
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EXTRN 


$IMOPEN , $IMDEFN , $IMPROT , $IMDATA 


I0CB2 


IOCB 


SCREEN=STATIC 


GETIMAGE 


CALL 


UMOPEN, ( DSETNAME M IMAGEBUF ) 




IF 


(XMPLSTAT+2,NE,-1) 




MOVE 


ERRCODE, XMPLSTAT+2 




PRINTEXT 


■©IMAGE OPEN ERROR, CODE =' 




PRINTNUM 


ERRCODE 




QUESTION 


'3RETRY OPEN ? • ,YES=GETIMAGE,NO=ENDIT 




ENDIF 






CALL 


$IMDEFN, ( IOCB2 ) , ( IMAGEBUF ) 




ENQT 


I0CB2 




TERMCTRL 


BLANK 




CALL 


$IMPROT, < IMAGEBUF ),0 




CALL 


$IMDATA,( IMAGEBUF) 




PRINTEXT 


LINE=4,SPACES=12 




TERMCTRL 


DISPLAY 


ERRCODE 


DATA 


F'O' 


IMA6EBUF 


BUFFER 


5 12, BYTES 


DSETNAME 


TEXT 


■VIDEOl,EDX002' 



Figure 57. Code to transfer stored image to screen 



The second parameter of the CALL $IMPROT statement (Figure 57) 
is coded as 0. This could be coded as the label of a BUFFER 
statement* in which case the 5IMPR0T subroutine builds a table 



aiaieuicii l i iii w i i i u i i uoac l i i e ?inrnui ^uur uui imc a u i x u a « v. « u x e 

of the location and sizes of all unprotected (data entry) 
fields on the screen. Each table entry is three words long. The 
first word contains the line number* and the second* the start- 
ing position of the field within the line (spaces from left 
margin of screen). The third word contains the length of the 
field. These entries can be used to read or write data entry 
fieldson the screen. 



For example* in Figure 58 on page 377, FIELDS contains the 
line* spaces* and size of the first data entry field. PRINTEXT 
positions the cursor* and TERMCTRL displays it at the first 
field, just as did the PRINTEXT/TERMCTRL pair in Figure 57. If 
the starting point of the first data entry field is changed 
(SlMAGE used to redefine the screen image)* the program shown 
in Figure 57 would have to be changed* or the cursor would not 
be positioned properly. The program in Figure 58 on page 377 
would pick up the new starting field location without any pro- 
gram modification required. 
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CALL 


SIMPROT, ( IMAGEBUF ) , ( FIELDS ) 




PRINTEXT 


LINE=FIELDS, SPACES=FIELDS+2 




TERMCTRL, 


DISPLAY 


FIELDS 


BUFFER 


3 



Figure 58. Alternate coding technique 



Using the Image Formatting Subroutines 



The "$IM" subroutines are supplied as object modules on 
diskette XS1001 or XS2001. They are normally loaded into the 
volume ASMLIB. 

Because they are object modules* they are combined with the 
main program during the link edit stepi not during compilation. 
They must therefore be declared as external references in an 
EXTRN statement in the main program as shown in Figure 57 on 
page 376 . 



Processing Operator Input 



Accepting Operator Input 



The operator may position the cursor and enter data in any 
unprotected area of the screen. The program, by positioning the 
cursor at LINE=4, SPACES=12 (with the PRINTEXT following the 
CALL SIMDATA), provides a convenience to the operator, not a 
required function - the operator could have used the cursor 
positioning keys to move the cursor to the same position. 

The tab right key is useful in controlling cursor movement. 
Assume that the operator enters "SERIES/1 HARDWARE" in the 
space following the protected "CLASS NAME:" message, and then 
presses the tab right key ( — >|)» The cursor automatically 
skips over the protected "INSTRUCTOR NAME:" field, and posi- 
tions itself at the beginning of the unprotected area which 
f o 1 lows . 



Appendix D. Program Preparation Example 377 



If the operator presses the tab right key after entering the 
instructor name* the cursor moves to accept the first student 
name entry. Each time the operator presses the tab key, the 
cursor moves to the beginning of the next unprotected area on 
the screen. The cursor successively tabs to "NAME:"* 
"STREET:", "CITY:", and "STATE:", and then down to the "NAME:" 
in the next data entry area. 

Without program interaction, the operator can enter an entire 
screen of information and transfer it at one time. This is what 
is meant by static-screen operation, in contrast to the 
transactional prompt/reply dialogue typical of roll-screen 
operat i on . 

A completed input screen is shown in Figure 59. The screen is 
now at the point where the program must be signalled to process 
the data entered. 



LINE 
NUMBER 



1 
z 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



ENTER 


KEY = PAGE COMPLETE 


PF1 = DELETE ENTRY 1 PF2 = DELETE ENTRY 2 


PF3 = 


DELETE ENTRY 3 




PF4 = DELETE ENTRY 4 


CLASS 


NAME: SERIES/1 


HARDWARE 


INSTRUCTOR NAME: JOHN JONES 


NAME: 


AL BROUN 




STREET: 
CITY : 
STATE : 


111 GRANT AVENUE 

ENDICOTT 

NEW YORK 13760 


NAME: 


BILL SMITH 




STREET: 
CITY : 
STATE : 


255 ALHAMBRA CIRCLE 
CORAL GABLES 
FLORIDA 33135 


NAME: 


JOE STANTON 




STREET: 
CITY : 
STATE : 


140 EAST TOWN STREET 

COLUMBUS 

OHIO 43215 


NAME: 


LINDA GREEN 




STREET: 
CITY : 
STATE : 


6216 WASHINTON AVENUE 

RACINE 

WISCONSIN 53406_ 



00000000011 1 1 I 1 1 1 1 12222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 59. Screen with all data entered 
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In Figure 60, the WAIT KEY instruction at WAITONE terminates 
when the operator presses the ENTER key or a PF key. The com- 
puted GOTO following the WAIT KEY transfers control to various 
entry points, depending on the return code in "taskname+2" , A 
return code of zero results from use of the ENTER key, causing a 
transfer to location READ. PF1 through PF4 return codes of 1 
through 4, and result in transfers to El through E4, respec- 
tively (not shown). With the GOTO coded as shown, a PF key high- 
er than PF4 causes a transfer to READ, because the the return 
code is outside the valid range of index values 1-4. The zero 
returned by the ENTER key is also outside that range, and 
results in a transfer to READ. 

Assume that the operator presses the ENTER key, which signals 
the program that the page is complete and transfers control to 
READ. In an actual application program, the routine at location 
READ would contain the READTEXT instructions necessary to read 
all the data entered on the screen. The data would presumably 
be collected and used to print a class roster for the "SERIES/1 
HARDWARE" course taught by "JOHN JONES". 



XMPLSTAT 


PROGRAM 


START 


START 


ENqT 


IOCB1 


WAITONE 


WAIT 


KEY 




GOTO 


(READ,El,E2,E3,E4),XMPLSTAT+2 


READ 


QUESTION 


'MORE ENTRIES ?• ,LINE=2,SPACES=55,NO=CLEANUP 




ERASE 


M0DE=LINE,LINE=2,SPACES=55,TYPE=DATA 




ERASE 


M0DE=SCREEN,LINE=6 




PRINTEXT 


LINE=6,SPACES=6 




TERMCTRL 


DISPLAY 




GOTO 


WAITONE 


CLEANUP 


ERASE 
DEQT 


MODE=SCREEN,TYPE=ALL 




GOTO 


START 




END PROG 






END 





Figure 60. Code to process ENTER key 
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Determining if More Data is to be Entered 

Assuming that the contents of the screen has been read, the 
QUESTION instruction at READ displays the prompt message "MORE 
ENTRIES ?" in the operator prompt area at the upper right of the 

screen* as shown in Figure 61. 



LINE 
NUMBER 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



ENTER 


KEY = PAGE COMPLETE 


PF1 = DELETE ENTRY 1 PF2 = DELETE ENTRY 2 


PF3 a 


DELETE ENTRY 3 




PF4 = DELETE ENTRY 4 MORE ENTRIES ?_ 


CLASS 


NAME: SERIES/1 


HARDWARE 


INSTRUCTOR NAME: JOHN JONES 


NAME: 


AL BROWN 




STREET: 
CITY : 
STATE : 


111 GRANT AVENUE 

ENDICOTT 

NEW YORK 13760 


NAME: 


BILL SMITH 




STREET: 
CITY : 
STATE : 


255 ALHAMBRA CIRCLE 
CORAL GABLES 
FLORIDA 33135 


NAME: 


JOE STANTON 




STREET: 
CITY : 
STATE : 


140 EAST TOWN STREET 

COLUMBUS 

OHIO 43215 


NAME: 


LINDA GREEN 




STREET: 
CITY : 
STATE : 


6216 WASHINTON AVENUE 

RACINE 

WISCONSIN 53406 



0000000001 1111111 1 12222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 61. Screen contents after ENTER key is used 



The "MORE ENTRIES ?" query is asking the operator, "Are there 
more students to add to this roster, or are the students just 
read from the the current screen the last ones at this time?" 
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Processing if More Data is to be Entered 



Refer to Figure 60 on page 379 for the following discussion. 
Assume that more students are to be enrolled and "YES" is the 
response. Because YES= is not coded on the QUESTION statement, 
a response of "YES" results in execution of the ERASE 
instruction following the QUESTION. The first ERASE following 
the QUESTION clears the prompt and reply from the operator 
prompt area, and the second ERASE clears all unprotected data 
from the four data entry areas in lines 6 through 23. The "SE- 
RIES/1 HARDWARE" and "JOHN JONES" entries in the header area 
are left undisturbed, because the student names and addresses 
to be entered are still for the same class. The PRINTEXT fol- 
lowing the second ERASE positions the cursor at the first 
unprotected entry field for the first data entry area. The 
TERMCTRL DISPLAY that follows displays the cursor, resulting 
in the screen shown in Figure 62. 



LINE 
NUMBER 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

CHAR 
POS 



ENTER KEY = PAGE COMPLETE 
PF3 = DELETE ENTRY 3 



PF1 = DELETE ENTRY 1 
PF4 = DELETE ENTRY 4 



PF2 = DELETE ENTRY 2 



CLASS NAME: SERIES/1 HARDWARE INSTRUCTOR NAME: JOHN JONES 

NAME: _ STREET: 

CITY : 
STATE : 



NAME! 



NAME: 



NAME: 



STREET: 
CITY : 
STATE : 



STREET: 
CITY : 
STATE : 



STREET: 
CITY : 
STATE : 



00000000011 111111 1 12222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 62. Screen contents after reply of YES to QUESTION 
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Processing if No More Data is to be Entered 



If there are no more students to enter for this roster* and the 
response to the "MORE ENTRIES ?" prompt is "NO", the QUESTION 
statement (Figure 60 on page 379) transfers control to 
location CLEANUP. There, the program erases both protected and 
unprotected areas of the entire screen, dequeues the terminal, 
and goes back to the beginning of the program (START), bringing 
up the roll-screen with the initial operator instructions, as 
shown in Figure 63. 



LINE 
NUMBER 





1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



CLASS ROSTER PROGRAM 
HIT 'ATTN' AND ENTER 'END' TO END THE PROGRAM 
HIT ANY PROGRAM FUNCTION KEY TO BRING UP THE ENTRY SCREEN 



0000000001 1 1 1 1 1 1 1 1 12222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 63. Screen contents after reply of NO to QUESTION 
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Processing the Program Function Keys 



In Figure 64, assume the program is again suspended by the WAIT 
KEY at WAITONE, with the complete screen depicted in Figure 59 
on page 378. The transfer to location READ and the "MORE 
ENTRIES ?" prompt from the QUESTION statement resulted from the 
operator pressing the ENTER key. 

However, the WAIT KEY instruction may also be terminated by a 
PF key. No PF key functions are preassigned other than the 
hardcopy facility (PF6). Therefore* the purpose of a partic- 
ular PF key in any program is defined by the instructions coded 
in the routine to which control is transferred when that PF key 
i s pressed . 

The PF1 through PF4 keys have been assigned by this program as 
delete functions for the four data entry areas, as shown by the 
operator prompts at the top of the screen (see Figure 59 on 
page 378) . 



XMPLSTAT 


PROGRAM 


START 


WAITONE 


WAIT 


KEY 




GOTO 


(READ,El,E2,E3,E4),XMPLSTAT+2 


El 


MOVE 


LINENBR, 6 




GOTO 


DELETE 


E2 


MOVE 


LINENBR, 11 




GOTO 


DELETE 


E3 


MOVE 


LINENBR, 16 




GOTO 


DELETE 


E4 


MOVE 


LINENBR, 21 


DELETE 


ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




ADD 


LINENBR, 1 




ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




ADD 


LINENBR, 1 




ERASE 


MODE=LINE ,TYPE=DATA, LINE=LINENBR 




SUBTRACT 


LINENBR, 2 




PRINTEXT 


LINE= LINENBR , SPACES=6 




TERMCTRL 


DISPLAY 




GOTO 


WAITONE 


LINENBR 


DATA 

ENDPROG 

END 


F'O" 



Figure 64. Code to process the PF keys 



Appendix D. Program Preparation Example 



383 



Assume that for some reason* the student "JOE STANTON", the 
third entry on the screen* is not supposed to be on the class 
roster; the operator, therefore, presses PF3. 

In Figure 64 on page 383, the PF key terminates the NAIT KEY 
instruction, and the computed GOTO transfers control to E3. 
The MOVE at E3 initializes the LINENBR variable to 16, which is 
the top line of the third data entry area. Control is then 
transferred to DELETE, where successive ERASE operations and 
adjustments of the LINENBR variable result in erasure of the 
unprotected portions of the third data entry area. Before 
returning to the NAIT KEY, the cursor is positioned and dis- 
played at the first entry field of the erased data area, as 
shown in Figure 65. 



LINE 
NUMBER 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



ENTER 


KEY = PAGE COMPLETE 


PF1 = DELETE ENTRY 1 PF2 = DELETE ENTRY 2 


PF3 = 


DELETE ENTRY 3 




PF4 = DELETE ENTRY 4 


CLASS 


NAME: SERIES/1 


HARDWARE 


INSTRUCTOR NAME: JOHN JONES 


NAME: 


AL BRONN 




STREET: 
CITY : 
STATE : 


111 GRANT AVENUE 

ENDICOTT 

NEN YORK 13760 


NAME: 


BILL SMITH 




STREET: 
CITY : 
STATE : 


255 ALHANBRA CIRCLE 
CORAL GABLES 
FLORIDA 33135 


NAME: 


- 




STREET: 
CITY : 
STATE : 




NAME: 


LINDA GREEN 




STREET: 
CITY : 
STATE : 


6216 WASHINTON AVENUE 

RACINE 

WISCONSIN 53406 



CHAR 0000000001111111111 2222222222333333333344444444445555555555666666666677777777778 
POS 12345678901234567890123456789012345678901234567890123456789012345678901234567890 

Figure 65. Screen contents after PF3 is used 



The program preparation descriptions in part III and part IV 
assume that this program is stored in the data set STATSRC in 
volume EDX002 . 
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Figure 66 and Figure 67 
p lete program . 



on page 386 are a listing of the com- 



XMPLSTAT 


PROGRAM 


START 






EXTRN 


$IM0PEN, $IMDEFN, $IMPROT , SIMDATA 




I0CB1 


IOCB 


NHIST=0 




I0CB2 


IOCB 


SCREEN=STATIC 






ATTNLIST 


(END, OUT, $PF, STATIC) 




START 


ENQT 


IOCB1 






PRINTEXT 


'CLASS ROSTER PROGRAM' ,SPACES=15,LINE=0 






PRINTEXT 


•HIT "ATTN" AND ENTER "END" TO END',SKIP= 


■Z 




PRINTEXT 


' THE PROGRAM' 






PRINTEXT 


'HIT ANY PROGRAM FUNCTION KEY TO',SKIP=2 






PRINTEXT 


' BRING UP THE ENTRY SCREEN' 






DEQT 






CHECK 


WAIT 


ATTNECB, RESET 






IF 


(ATTNECB,EQ,l),GOTO,ENDIT 




GETIMAGE 


CALL 


SIMOPEN , ( DSETNAME ) , ( IMAGEBUF ) 






IF 


(XMPLSTAT+2,NE,-1) 






MOVE 


ERRCODE, XMPLSTAT+2 






PRINTEXT '5>IMAGE OPEN ERROR, CODE =' 






PRINTNUM ERRCODE 






QUESTION '3RETRY OPEN ? • ,YES=GETIMAGE,NO=ENDIT 






END IF 








CALL 


$IMDEFN , ( IOCB2 ) , ( IMAGEBUF ) 






ENQT 


IOCB2 






TERMCTRL 


BLANK 






CALL 


$IMPROT,( IMAGEBUF ),0 






CALL 


$IMDATA,( IMAGEBUF) 






PRINTEXT 


LINE=4,SPACES=12 






TERMCTRL 


DISPLAY 




WAITONE 


WAIT 


KEY 






GOTO 


(READ, El, E2,E3,E4), XMPLSTAT+2 




El 


MOVE 


LINENBR,6 






GOTO 


DELETE 




E2 


MOVE 


LINENBR,11 






GOTO 


DELETE 




E3 


MOVE 


LINENBR,16 






GOTO 


DELETE 




E4 


MOVE 


LINENBR,21 




DELETE 


ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 






ADD 


LINENBR , 1 






ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 






ADD 


LINENBR, 1 






ERASE 


MODE= LINE , TYPE=DATA , LINE= LINENBR 





Figure 66. Complete program (Part 1 of 2) 
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SUBTRACT 


LINENBR, 2 




PRINTEXT 


LINE= LINENBR, SPACES=6 




TERMCTRL 


DISPLAY 




GOTO 


WAITONE 


READ 


QUESTION 


•MORE ENTRIES ?' ,LINE=2,SPACES=55,NO=CLEANUP 




ERASE 


M0DE=LINE,LINE=2,SPACES=55,TYPE=DATA 




ERASE 


MODE=SCREEN,LINE=6 




PRINTEXT 


LINE=6,SPACES=6 




TERMCTRL 


DISPLAY 




GOTO 


WAITONE 


CLEANUP 


ERASE 
DEQT 


MODE=SCREEN,TYPE=ALL 




GOTO 


START 


END IT 


PROGSTOP 




OUT 


POST 
ENDATTN 


ATTNECB, 1 


STATIC 


POST 
ENDATTN 


ATTNECB, -1 


ATTNECB 


ECB 




LINENBR 


DATA 


F'O' 


ERRCODE 


DATA 


F'O' 


IMAGEBUF 


BUFFER 


512, BYTES 


DSETNAME 


TEXT 
END PROG 
END 


, VIDEOl,EDX002' 



Figure 67. Complete program (Part 2 of 2) 
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PART II. DEFINE FORMATTED SCREEN IMAGE USING $IMAGE 



Part I of this appendix showed the development of a sample ter- 
minal program which formatted a static-screen using 
system-supplied subroutines to access the screen image defined 
using the $IMAGE utility. 

This part of the appendix is a description of the $IMAGE utili- 
ty session in which the static-screen image used by the example 
program is created and stored in a data set. The screen image 
that is created in this utility session is shown in Figure 55 
on page 373 with the exception that the cursor does not appear 
on the screen defined using SIMAGE; it is displayed by the 
application program. 

$IMAGE is used to create formatted screen images for use with 
terminals that support static screen functions. The image 
(formatted screens) is stored in a disk or diskette data set 
for later retrieval by application programs. $IMAGE can also 
retrieve stored images for modification. 
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Creating the Image Data Set 



You must allocate a disk or diskette data set to store the 
formatted screen image created by $IMAGE. The formatting 
information and text are stored in a special packed format to 
conserve space. A stored screen may be any size from one char- 
acter position up to an entire physical screen* and therefore 
the amount of space on disk or diskette required to store a giv- 
en screen image varies. For most stored screens, a data set two 
records in length is adequate. 

Because the screen image to be created encompasses an entire 
physical screen and contains several lines of text, a data set 
two records in length is required to store it. 

Before beginning the $IMAGE utility session, a data set two 
records long, named VIDE01 is created using $DISKUT1. 
Figure 68 shows the data set creation sequence. 



> $L SDISKUT1 










$DISKUT] 




26P>00: 


32: 


36, LP= 


5F00 


USING VOLUME 


EDX002 








COMMAND 


(?): 


AL VIDE01 


2 






DEFAULT 


TYPE 


= DATA - 


OK? 


YES 




VIDED01 


CREATED 








COMMAND 


(?): 


END 








DISKUT1 


ENDED 


AT 00:32 


:33 







Figure 68. Allocation of screen image data set (VIDE01) 
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Loading $IMAGE and Entering Commands 



Now the $IMAGE utility can be loaded, and the utility session 
begun. Figure 69 shows the commands used. Entering a "?" in 
response to the "COMMAND (?)!" prompt results in a display of 
the available SIMAGE commands. 



> $L $IMAGE 




$IMAGE 


37P, 00:32:06, LP= 5F00 


COMMAND ( ? ) : 


? 


DIMS — 


DEFINE IMAGE DIMENSIONS 


HTAB — 


DEFINE HORIZONTAL TAB SETTINGS 


VTAB — 


DEFINE VERTICAL TAB SETTINGS 


NULL — 


DEFINE NULL REPRESENTATION 


EDIT -- 


ENTER EDIT MODE 


KEYS __ 


PROGRAM FUNCTION KEYS 


SAVE __ 


SAVE IMAGE ON DISK 


END — 


END PROGRAM 


COMMAND ( ? ) : 


DIMS 24 80 


COMMAND ( ? ) : 


HTAB 1 31 


COMMAND ( ? ) : 


NULL / 


COMMAND ( ? ) : 


EDIT 



Figure 69. $IMAGE commands 



All of the commands listed in Figure 6 9 may be entered in com- 
mand mode only. They are not available in edit mode. 

The DIMS command allows you to define the dimensions of the 
logical screen you are creating. The example shows a logical 
screen of 24 lines and 80 characters specified, which is equal 
to the entire physical screen. 

HTAB is the horizontal tab settings you wish to have in effect 
while you are creating the screen. If not entered, HTAB 
defaults to 10,20,30,40,50,60,70. The example defines horizon- 
tal tab settings of 1 and 31. Those tab settings allow you to 
position the cursor to the corresponding display positions 
with the PF1 key in edit mode. 




The NULL command allows you to define the null character. When 
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in edit mode, you enter a null character in each character 
position in which you want to display unprotected data, or 
which is to accept data entered by the operator. The example 
defines the null character to be a slash (/). 

The KEYS command lists the functions of PF1, PF2, and PF3 imme- 
diately after edit mode is entered. Refer to Figure 70. 



PFl -define protected fields 
PF2-define data fields (unprotected) 
PF3-return to command mode 



Figure 70. $IMAGE PF key functions upon edit mode entry 



Creating the Image 



Entering edit mode 



The last command entered is EDIT, which places the SIMAGE util- 
ity in edit mode. If an existing screen image were to be edit- 
ed, the data set name and volume containing that image would be 
entered with the EDIT command. Because this 5IMAGE session is 
creating a new screen, EDIT is entered without reference to 
data set. Before pressing any of the PF keys, the screen 
entirely blank, and the cursor is in the lower left corner. 



a 
i s 



Protected and Unprotected Fields 



The screen being created in this example contains both 
protected and unprotected data. The operator prompts on lines 
1 and 2 are unprotected, and the rest of the fields are pro- 
tected (see Figure 55 on page 373.) 

Note : When the completed screen is displayed, the unprotected 
areas appear brighter than those that are protected, high- 
lighting the prompts at the top of the screen. 
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Defining the Protected Fields 



When both protected and unprotected text is to appear on a 
screen created by $ I M A G E , you mu'st enter the protected data 
first. Therefore press PF1 to signal the utility that protected 
fields are to be defined. The cursor moves to the first avail- 
able character position, which is line 0, space 0, in this 
example. 

As soon as either PF1 or PF2 is pressed, after entering edit 
mode, the function of PF1 and PF2 is redefined. PF1 is then used 
as the horizontal tab key and PF2 as the vertical tab key. 
Since no text appears on line 0, press the vertical tab key PF2 
to move the cursor down to the first position of line 1. 



When you define the protected 
characters entered, other tha 
tected data. All areas of the 
acters will be protected when 
operator prompts on lines 1 a 
tected. Therefore, the actual 
entered until the unprotected 
utility sessioni .which occurs 
been defined. However, since 
contain unprotected text, n 
entered? this allows the text 
unprotected data definition is 



areas of a screen image, all 
n the null character, are pro- 
screen not containing null char- 
the screen is completed. The 
nd 2 are supposed to be unpro- 
text of the prompts cannot be 
data definition portion of this 
after all protected fields have 
these areas of the screen will 
ull character fields must be 
entered to be accepted when the 
done . 



Now format the rest of the screen. Note that any field meant to 
receive operator input when the screen is used must be defined 
using the null character. 



Appendix D. Program Preparation Example 



391 



Figure 71 shows the screen contents after all protected fields 
have been defined. 



LINES 

o 
l 

2 
3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



///////////////////////// 


//////////////////// //////////////////// 


//////////////////// 


//////////////////// ///////////////// 


CLASS NAME: //////////////// 


INSTRUCTOR NAME: ////////////////////////// 


NAME : ////////////////////// 


STREET: 


///////////////////////////////////// 




CITY : 


///////////////////////////////////// 




STATE : 


///////////////////////////////////// 


NAME: ////////////////////// 


STREET: 


///////////////////////////////////// 




CITY : 


///////////////////////////////////// 




STATE : 


///////////////////////////////////// 


NAME : ////////////////////// 


STREET: 


///////////////////////////////////// 




CITY : 


///////////////////////////////////// 




STATE : 


///////////////////////////////////// 


NAME: ////////////////////// 


STREET: 


///////////////////////////////////// 




CITY : 


///////////////////////////////////// 




STATE : 


///////////////////////////////////// 



0000000001 11111111 1 2222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 71. Screen with protected and null fields defined 



Press the ENTER key to take the utility out of protected field 
definition* (back to the situation as it was before a define 
protected field or define unprotected field decision was 
made). PF1 and PF2 again have the meanings printed out by the 
KEYS command (refer to Figure 70 on page 390). 
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The ENTER key also causes the protected areas of the screen 
defined up to this point to be displayed as shown in Figure 72. 



LINES 

o 
1 
z 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
Id 
19 
20 
21 
22 
23 

CHAR 
POS 





CLASS 


NAME: 


INSTRUCTOR NAME: 


NAME: 




STREET: 
CITY : 
STATE : 


NAME: 




STREET: 
CITY : 
STATE : 


NAME: 




STREET: 
CITY : 
STATE : 


NAME: 




STREET: 
CITY : 
STATE : 



00000000011 1 1 1 1 1 1 1 12222222222333333333344444444445555555555666666666677777777778 
1 234567890 1 234567890 1 234567890 1 234567690 1 234567890 1 234567890 1 234567890 1 234567890 



Figure 72. Screen contents after ENTER key use 



Entering the Unprotected Output Fields 



If the desired screen image were now complete* you would press 
PF3 to reenter command mode , so that the image could be saved. 
In this example* however* there is still unprotected data to be 
defined (on lines one and two), so press PF2. Pressing PF2 
allows unprotected fields to be entered and brings back the 
same screen image as in Figure 71 on page 392, with the unpro- 
tected fields defined as null characters. 

Now fill in the unprotected null fields in the operator prompt 
area at the top of the screen. The other null fields are input 
fields that will be used by the application program, so they 
are left undisturbed. 
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After all unprotected text is 
that shown in Figure 73. 



defined, the screen looks like 



LINES 

o 
l 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



ENTER KEY = PAGE COMPLETE 
PF3 = DELETE ENTRY 3 



PF1 = DELETE ENTRY 1 
PF4 = DELETE ENTRY 4 



PF2 = DELETE ENTRY 2 
///////////////// 



CLASS NAME: //////////////// INSTRUCTOR NAME: ////////////////////////// 

NAME: ////////////////////// STREET: ///////////////////////////////////// 

CITY : ///////////////////////////////////// 
STATE : ///////////////////////////////////// 



NAME: ////////////////////// STREET: ///////////////////////////////////// 

CITY : ///////////////////////////////////// 
STATE : ///////////////////////////////////// 



NAME: ////////////////////// STREET: ///////////////////////////////////// 

CITY : ///////////////////////////////////// 
STATE : ///////////////////////////////////// 



NAME: ////////////////////// STREET: ///////////////////////////////////// 

CITY : ///////////////////////////////////// 
STATE : ///////////////////////////////////// 



CHAR 00000000011 111111 1 12222222222333333333344444444445555555555666666666677777777778 
POS 123456 78901234567890123456 7890123456 7890123456 7890123456 7890123456 7890123456 7890 

Figure 73. Screen with unprotected fields defined 



After you have entered the unprotected prompts on lines one and 
two* press the ENTER key. The completed screen is then dis- 
played (see Figure 55 on page 373) If you want to make any 
changes to the screen, press PF1 to allow protected field entry 
or PF2 to allow unprotected field entry. 
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Saving the Image Created 



Assuming that the image is correct* press PF3 to return to com- 
mand mode. The screen is blanked and you are prompted for a com- 
mand. Enter the SAVE command followed by the name of the data 
set that was allocated for this purpose. The 5IMAGE utility 
sess i on i s ended . 



COMMAND (?): SAVE VIDEO! 

SAVED (2 RECORDS) 
COMMAND (?): END 



Figure 74. Save screen image created and end $IMAGE 
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PART III. PREPARE PROGRAM USING SESSION MANAGER 



In part I » a program was developed incorporating 
system-supplied subroutines to format the static-screen image 
used . " 

In part II* the $IMAGE screen formatting utility was used to 
create the screen* and save it in a screen image data set named 
VIDE01. 

In this part of the appendix* the program developed in part I is 
compiled* link-edited* and formatted. Each step is done using 
the session manager to invoke the various program preparation 
utilities. 

Figure 75 shows a graphic overview of the program preparation 
process . 



SEDITIN 
$FSEDIT 



Step 1 : Create source module 



$EDXASM 



Step 3: Link edit 
object modules 
(if required) 



Step 2: Compile source module into 
object module (listing optional) 



Step 4: Format object module into 
relocatable load module 
(executable program) 



$LINK 
(AS REQUIRED) 














SUPDATE 















Figure 75. Program preparation steps 
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Step 1. Create Source Module Using $FSEDIT 



The program to be prepared is shown in Figure 66 on page 385 and 
Figure 67 on page 386. The source program is assumed to be in a 
data set named STATSRC on volume EDX002. 



Step 2. Compile Source Module Using $EDXASM 



The names of the data sets and the volumes containing them that 
are used in the compilation step are: 





DATA SET NAME 


VOLUME NAME 


INPUT DATA SET 


STATSRC 


EDX002 


OUTPUT DATA SET 


ASMOBJ 


EDX002 



Note : You must allocate ASMOBJ if it does not already exist. It 
must be a data type member. A size of 100 records is adequate. 

Figure 76 on page 398 shows the session manager display screen 
used to invoke the compiler. 

Because no options are selected, $EDXASM produces a full compi- 
lation listing on the system printer. Nhen the compiler fin- 
ishes, it stores the resulting object module in ASMOBJ on 
volume EDX002. SEDXASM then loads SEDXLIST to produce the com- 
pilation listing. 
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$SMM0201: SESSION MANAGER $EDXASM PARAMETER INPUT MENU- 
ENTER/SELECT PARAMETERS: 



DEPRESS PF3 TO RETURN 



SOURCE INPUT (NAME, VOLUME) ==> STATSRCEDX002 
OBJECT OUTPUT ( NAME , VOLUME ) ==> ASMQBJ.EOX002 
ENTER OPTIONAL PARAMETERS BY POSITION ==> 



LIST PRINTER NAME 

NOLIST 

ERRORS 

DEFAULTS ARE: LIST $SYSPRTR 



Figure 76. SEDXASM invocation 



The compilation listing produced is shown in Figure 77 on page 
399, Figure 78 on page 400, and Figure 79 on page 401. 
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EDX 


ASSEMBLER STATISTICS 












SOURCE INPUT - 


- STATSRC , 


E0X002 










WORK 


DATA 


SET - 


- SSMlUSERi 


EDX003 








OBJECT MODULE - 


- ASMOBJ 1 


EDX002 










OATE 


: 02/21/80 


AT 16:24:57 










ASSEMBLY TIME: 


26 SECONDS 










STATEMENTS PROCESSEO - 


70 










NO STATEMENTS FLAGGED 












OOOO 


0008 


0709 


D6C7 


09C1 


D440 


XMPLSTAT 


PROGRAM 


START 




OOOA 


0000 


0404 


0052 


0000 


0000 










0014 


5D6 


0000 


0000 


0000 


0100 










001E 


05D4 


0000 


0000 


0000 


0554 










0028 


0000 












EXTRN 


JIMOPEN»SlMDEFN.$IMPROT»SIMDATA 




002A 


4040 


4040 


4040 


4040 


8000 


I0CB1 


IOCB 


NHIST=0 




0034 


OOFF 


0000 


7FFF 


0000 


0000 










003E 


4040 


4040 


4040 


4040 


8800 


I0CB2 


IOCB 


SCREEN=STATIC 




0048 


OOFF 


0000 


7FFF 


0000 


0000 










0052 


0002 


0403 


C5D5 


C440 


02A6 




ATTNLIST 


(END.OUT.SPF, STATIC) 




005C 


0403 


5BD7 


C640 


02AE 












0064 


1025 


002A 








START 


ENQT 


I0CB1 




0068 


B02A 


0000 


OOOF 


8026 


1414 




PRINTEXT 


•CLASS ROSTER PROGRAM' . SPACES=15 ,L INE = 




0072 


C3D3 


C1E2 


E240 


09D6 


E2E3 










007C 


C5D9 


40D7 


D9D6 


C7D9 


C104 










0086 


902A 


0002 


0000 


8026 


2221 




PRINTEXT 


•HIT "ATTN" AND ENTER ••END" TO END', SKIP: 


2 


0090 


C8C9 


E340 


7DCI 


E3E3 


D57D 










009A 


40C1 


D5C4 


40C5 


D5E3 


C5D9 










00A4 


407D 


C5D5 


C47D 


40E3 


D640 










OOAE 


C5D5 


C440 
















00B2 


8026 


OCOC 


40E3 


C8C5 


40D7 




PRINTEXT 


• THE PROGRAM' 




OOBC 


D9D6 


C7D9 


C1D4 














00C2 


902A 


0002 


0000 


8026 


201F 




PRINTEXT 


•HIT ANY PROGRAM FUNCTION KEY T0',SKIP=2 




OOCC 


C8C9 


E340 


C1D5 


E840 


D7D9 










0006 


D6C7 


D9C1 


D440 


C6E4 


D5C3 










OOEO 


E3C9 


D6D5 


40D2 


C5E8 


40E3 










OOEA 


0640 


















OOEC 


8026 


1A1A 


40C2 


09C9 


05C7 




PRINTEXT 


• BRING UP THE ENTRY SCREEN' 




00F6 


40E4 


D740 


E3CB 


C540 


C505 










0100 


E309 


E840 


E2C3 


D9C5 


C5D5 










010A 


8025 












DEOT 






010C 


0018 


02B6 








CHECK 


WAIT 


ATTNEC3, RESET 




0110 


A0A2 


02B6 


0001 


0250 






IF 


(ATTNECO,EQ.l),GOTO»ENOIT 




0118 


C29E 


0000 


04C6 


02C4 




GETIMAGE 


CALL 


SIMOPEN. (DSETNAME).(IMAGEBUF) 




0120 


A0A2 


0406 


FFFF 


0168 






IF 


<XMPLSTAT*2,NE»-1) 




0128 


005C 


02BE 


0406 








MOVE 


ERRCOOE. XMPLSTAT+2 




012E 


8026 


1818 


7CC9 


D4CI 


C7C5 




PRINTEXT '3IMAGE OPEN ERROR. CODE =• 




0138 


40D6 


D7C5 


0540 


C5D9 


09 D6 










0142 


096B 


C3D6 


C4C5 


407E 












014A 


0028 


02BE 


0001 








PRINTNUM ERRCOOE 




0150 


C026 


OEOE 


7C09 


C5E3 


D9E8 




QUESTION '3RETRY OPEN ? • 1 YES=GETIMAGE .NO=ENDIT 




015A 


4006 


D7C5 


D540 


6F40 


C02E 










0164 


0118 


0250 

















Figure 77. Compilation listing (Part 1 of 3) 
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ENDIF 






0168 


C29E 


0000 


003E 


02C4 






CALL 


$IMDEFN, (I0CB2) , (IMAGEBUF) 




0170 


1025 


003E 










ENQT 


I0CB2 




0174 


1430 












TERMCTRL 


BLANK 




0176 


C29E 


0000 


02C4 


0000 






CALL 


SIMPROT, (IMAGEBUF), 




017E 


819E 


0000 


02C4 








CALL 


$IMDATA, (IMAGEBUF) 




0184 


B02A 


0004 


OOOC 








PRINTEXT 


LINE=4,SPACES=12 




018A 


1C30 












TERMCTRL 


DISPLAY 




018C 


2030 










WAITONE 


WAIT 


KEY 




018E 


00A1 


04D6 


0004 


0204 


019E 




GOTO 


(READ,E1,E2,E3,E4),XMPLSTAT*2 




0198 


01A8 


01B2 


01BC 














019E 


805C 


02BC 


0006 






El 


MOVE 


LINENBR, 6 




01A4 


OOAO 


01C2 










GOTO 


DELETE 




01A8 


805C 


02BC 


OOOB 






E2 


MOVE 


LINENBR, 11 




01AE 


OOAO 


01C2 










GOTO 


DELETE 




01B2 


805C 


02BC 


0010 






E3 


MOVE 


LINENBR, 16 




01B8 


OOAO 


01C2 










GOTO 


DELETE 




01BC 


805C 


02BC 


0015 






E4 


MOVE 


LINENBR, 21 




01C2 


E02A 


028C 


0000 


F030 


0004 


DELETE 


ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




01CC 


2000 


















01CE 


8032 


02BC 


0001 








ADD 


LINENBR, 1 




01D4 


E02A 


02BC 


0000 


F030 


0004 




ERASE 


MODE=LINE,TYPE=0ATA,LINE=LINENBR 




01DE 


2000 


















01E0 


8032 


02BC 


0001 








ADD 


LINENBR, 1 




01E6 


E02A 


02BC 


0000 


F030 


0004 




ERASE 


MODE=LINE»TYPE=DATA,LINE=LINENBR 




01F0 


2000 


















01F2 


8035 


02BC 


0002 








SUBTRACT 


LINENBR, 2 




01F8 


A02A 


02BC 


0006 








PRINTEXT 


LINE=LINENBR,SPACES=6 




01FE 


1C30 












TERMCTRL 


DISPLAY 




0200 


OOAO 


018C 










GOTO 


WAITONE 




0204 


F02A 


0002 


0037 


C026 


OEOE 


READ 


QUESTION 


•MORE ENTRIES ? • ,L INE=2 ,SPACES=55,NO= 


CLEANUP 


020E 


D4D6 


D9C5 


40C5 


D5E3 


D9C9 










0218 


C5E2 


406F 


802E 


0244 












0220 


F02A 


0002 


0037 


F030 


0004 




ERASE 


M0DE=LINE,LINE=2,SPACES=55,TYPE=DATA 




022A 


2000 


















022C 


F02A 


0006 


0000 


F030 


0000 




ERASE 


M0DE=SCREEN,LINE-6 




0236 


2000 


















0238 


B02A 


0006 


0006 








PRINTEXT 


LINE=6,SPACES=6 




023E 


1C30 












TERMCTRL 


DISPLAY 




0240 


OOAO 


018C 










GOTO 


WAITONE 




0244 


F030 


0001 


2000 






CLEANUP 


ERASE 


MODE=SCREEN,TYPE=ALL 




024A 


8025 












DEQT 






024C 


OOAO 


0064 










GOTO 


START 




0250 


0022 


FFFF 








ENDIT 


PROGSTOP 






0254 


5050 












DATA 


x'soso* 




0256 


6060 


6060 


6060 


6060 


6060 


DASHES 


DATA 


80C'-' 




02A6 


0019 


02B6 


0001 






OUT 


POST 


ATTNECB, 1 




02AC 


001D 












ENDATTN 






02AE 


0019 


02B6 


FFFF 






STATIC 


POST 


ATTNECB, -1 




02B4 


001D 












ENDATTN 






02B6 


FFFF 


0000 


0000 






ATTNECB 


ECB 






02BC 


0000 










LINENBR 


DATA 


F'0« 




02BE 


0000 










ERRCODE 


DATA 


F'0« 




02C0 


0000 


0200 


0000 


0000 


0000 


IMAGEBUF 


BUFFER 


512, BYTES 




02CA 


0000 


0000 


0000 


0000 


0000 










04BE 


0000 


0000 


0000 














04C4 


OEOD 


E5C9 


C4C5 


06F1 


6BC5 


DSETNAME 


TEXT 


, VIDE01,EDX002 , 




04CE 


C4E7 


FOFO 


F240 















Figure 78, Compilation listing (Part 2 of 3) 
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04D4 


0000 


0000 


0000 


0234 


0000 


04DE 


OODO 


0000 


0064 


0404 


0000 


04E8 


0000 


0000 


0000 


0000 


0000 


04F2 


0002 


0096 


0000 


0000 


FFFF 


04FC 


0000 


0000 


0500 


0000 


0000 


0506 


0502 


E7D4 


D7D3 


E2E3 


C1E3 


0510 


0000 


0000 


0000 


0000 


0000 


051A 


0000 


0000 


FFFF 


0000 


0000 


0524 


0000 


0000 


0000 


0404 


0000 


052E 


0000 


0000 


0000 


0000 


0000 


054C 


0000 


0000 


0404 


0080 


0000 


0556 


0000 


0000 


0234 


0000 


0000 


0560 


0000 


0000 


0554 


0000 


0000 


056A 


0000 


0000 


0000 


0000 


0001 


0574 


OOOA 


0000 


0000 


FFFF 


0000 


057E 


0000 


0580 


0000 


0000 


0582 


0588 


5BC1 


E3E3 


C1E2 


D240 


0000 


0592 


0000 


0000 


0000 


0000 


0000 


059C 


0000 


FFFF 


0000 


0000 


0000 


05A6 


0000 


0000 


0404 


0000 


0000 


05B0 


0000 


0000 


0000 


0000 


0000 


05CE 


0000 


0554 


0080 


0000 


0000 


05D8 


0000 


0000 


0000 


0000 


0000 


05E2 


0000 


0000 


0000 


0000 




SVC 




rfXTRN 








SUPEXIT 


rfXTRN 








SETBUSY 


rlXTRN 








SIMOPEN 


EXTRN 








tIMOEFN 


EXTRN 








SIMPROT 


EXTRN 








SIMDATA 


EXTRN 









ENOPROG 



Figure 79. Compilation listing (Part 3 of 3) 
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Step 3. Link Edit Object Modules Using $LINK 



The static-screen image formatting subroutines ($IMOPEN> 
SIMDEFN, SIMDATA, $IMPROT) used by the source program are dis- 
tributed in the form of object modules* which normally become 
resi dent i n ASMLIB. 

To include these subroutines in the program, the object module 
output of the compilation (data set ASMOBJ) must be linked with 
the screen formatting support object modules using $LINK. 

The names of the data sets and the volumes containing them that 
are used in the link-edit step are: 





DATA SET NAME 


VOLUME NAME 


INPUT DATA SETS 


ASMOBJ 
SAUTO 
$IMGEN 
SIMOPEN 


EDX002 
ASMLIB 
ASMLIB 
ASMLIB 


CONTROL DATA SET 


LINKSTAT 


EDX002 


OUTPUT DATA SET 


LINKOUT 


EDX002 



Note : You must allocate LINKOUT if it is not already allocated. 
It must be a data type member. A size of 100 records is ade- 
quate . 
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Using the Autocall Data Set 



The INCLUDE control records for the screen formatting object 
modules are predefined in the system autocall data set $AUTO; 
they may be included using the autocall option. When you use 
the autocall option to include object modules* you need not 
specify those module names on INCLUDE control records. 

Figure 80 is a listing of $AUT0> the system autocall data set. 
The screen formatting support modules are specified in 
autocall definition statements 220 and 230. 



00010 


$GPLIST,ASMLIB 


SGPLIST 




00020 


$PUHC,ASMLIB 


$PUHC 




00030 


$GEPM,ASMLIB 


$GEPM 




00040 


$GEAC,ASMLIB 


$GEAC 




00050 


$$GIN,ASMLIB 


$$GIN 




00060 


$PUFC,ASMLIB 


$PUFC 




00070 


SPUXCASMLIB 


$PUXC 




00080 


$GEER,ASMLIB 


$GEER 




00090 


$GEXC,ASMLIB 


$GEXC 




00100 


$$SCREEN,ASMLIB 


$$SCREEN 




00110 


$PUIC,ASMLIB 


$PUIC 




00120 


SPUSCASMLIB 


$PUSC 




00130 


$GESC,ASMLIB 


$GESC 




00140 


SGEFCASMLIB 


$GEFC 




00150 


$PUAC,ASMLIB 


$PUAC 




00160 


$PUEC,ASMLIB 


$PUEC 




00170 


$GEIC,ASMLIB 


$GEIC 




00180 


$$PGIN,ASMLIB 


$$PGIN 




00190 


$$C0NCAT,ASMLIB 


$$C0NCAT 




00200 


$$XYPLOT,ASMLIB 


$$XYPLOT 




00210 


$MFSL,ASMLIB 


$MFSL 




00220 


$IMGEN,ASMLIB 


$IMDEFN $IMPR0T *IMDATA $PACK ^UNPACK 


00230 


$IMOPEN»ASMLIB 


$IMOPEN DSOPEN 




00240 


$$RETURN,ASMLIB 


RETURN 




00250 


$$SVC,ASMLIB 


SVC 




00260 


*$EDXATSR,ASMLIB 


SETBUSY SUPEXIT **END 





Figure 80. $AUT0 data set listim 



If you wish to have your own autocall definitions* you can add 
them to this data set* and continue to use the system autocall 
data set $AUTO> or build your own autocall data set. In either 
case* the last statement in the data set must contain the 
"**END" text, indicating the end of the autocall data set. 
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Using the Link Control Data Set 



The names of the output object module data set* the autocall 
data set (if required)* and the object module data sets to be 
linked are passed to the linkage editor in the link control 
data set. The link control data set used for this example is 
named LINKSTAT. In Figure 81* the link control statements 
required for this link-edit are listed* along with some preced- 
ing comment lines explaining their function. 



00010 


* THIS 


LINK EDIT CONTROL DATA SET SPECIFIES: 


00020 


m 


1 ) THE LINKED OUTPUT OBJECT MODULE WILL 


00030 


* 


BE STORED IN 'LINKOUT' ON EDX002 


00040 


K 


2) THE AUTOCALL DATA SET IS '$AUTO' ON 


00050 


* 


VOLUME ASMLIB (SYSTEM SUPPLIED) 


00060 


K 


3) 'ASMOBJ' ON EDX002 IS THE ONLY INPUT 


00070 


K 


OBJECT MODULE TO BE INCLUDED EXPLICITLY 


00080 


* 




00090 


OUTPUT 


LINKOUT AUTO=$AUTO, ASMLIB 


00100 


INCLUDE ASMOBJ 


00110 


END 





Figure 81. Link edit control statements (LINKSTAT) 



Use SFSEDIT to create this control statement data set and store 
it in LINKSTAT using the WRITE function at the end of the text 
ed i t sess ion. 



Invoking SLINK 




definitions in $AUTO; the linked object module is stored in 
LINKOUT (specified on the OUTPUT control statement). Required 
error or information messages are read from the system link 
message data set* $LEMSG. 
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Figure 82 shows the session manager display screen used to 
invoke $LINK. 



$SMM0205: SESSION MANAGER $LINK PARAMETER INPUT MENU 
ENTER/SELECT PARAMETERS: 



DEPRESS PF3 TO RETURN 



LINK CONTROL ( NAME, VOLUME ) ==> LINKSTAT,EDX002 
OUTPUT DEVICE (DEFAULTS TO TERMINAL) ==> SSYSPRTR 



Figure 82. $LINK invocation 
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Figure 83 
1 i nk-ed i t . 



shoNS the SSYSPRTR output resulting from this 



SLINK EXECUTION CONTROL RECORDS 
440000 FROM LINKSTATtEDX002 

OUTPUT LINKOUT AUT0=SAUT0. ASMLIB 
000210INCLUDE ASMOBJ 

000220 INCLUDE SIMOPENf ASMLIB VIA AUTOCALL 
INCLUDE $IMGEN»ASMLIB VIA AUTOCALL 
INCLUDE SSRETURNtASMLIB VIA AUTOCALL 
END 
***** UNRESOLVEO EXTERNAL REFERENCES 
410000 WXTRN SVC 

WXTRN SUPEXIT 
WXTRM SETBUSY 
OUTPUT NAME= LINKOUT 



ESD TYPE 


LABEL 


ADDR 


LENGTH 


430000 CSECT 




0000 


05EA 


CSECT 




05EA 


076A 


ENTRY 


SIMOPEN 


05EC 




ENTRY 


OSOPEN 


090E 




CSECT 




0D54 


03E0 


ENTRY 


SIMDEFN 


0D56 




ENTRY 


SIMPROT 


0DF2 




ENTRY 


SIMOATA 


0F38 




ENTRY 


SPACK 


1018 




ENTRY 


SUNPACK 


1088 




CSECT 




1134 


0026 


ENTRY 


RETURN 


1134 




MODULE TEXT LENGTH= 115A, RLD 


C0UNT= 


LINKOUT ADDED TO EDX002 





424 



SLINK COMPLETION CODE= 
AT 16:28:55 ON 02/21/80 



-I 



SLINK 



ENDED AT 16:28:55 



Figure 83. Link edit 1 i 'sting 
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Step 4. Format Object Modules Using $UPDATE 



Before a linked (or compiled) object module can be executed, it 
must be processed by $UPDATE to format the object module into a 
relocatable load module acceptable to the system loader. 

The names of the data sets and the volumes containing them that 
are used in the SUPDATE step are: 





DATA SET NAME 


VOLUME NAME 


INPUT DATA SET 


LINKOUT 


EDX002 


OUTPUT DATA SET 


STATPROG 


EDX002 



Figure 84 shows the session manager display screen used to 
invoke SUPDATE. 



$SMM0206: SESSION MANAGER SUPDATE PARAMETER INPUT MENU 
ENTER/SELECT PARAMETERS: 



DEPRESS PF3 TO RETURN 



OBJECT INPUT (NAME, VOLUME) =============> LINKOUT ,EDX0 02 

PROGRAM OUTPUT (NAME, VOLUME) ============> STATPROG, EDX002 

REPLACE (ENTER YES IF PROGRAM EXISTS) ===> YES 
LISTING (TERMINAL NAME / *) ==========="> $SYSPRTR 



NOTE: THE OBJECT INPUT, PROGRAM OUTPUT AND LISTING TERMINAL NAME ARE 
REQUIRED PARAMETERS AND MUST BE ENTERED. 
AN '*' MAY BE USED TO SPECIFY THIS TERMINAL AS THE LISTING TERMINAL 



Figure 84. SUPDATE invocation 



If data set STATPROG does not exist, $UPDATE creates it. The 
program STATPROG can be loaded and executed when this step is 
completed . 
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PART IV. PREPARE PROGRAM USING $JOBUTIL 



An alternative way to prepare a program for execution is to run 
the steps involved as a batch job under control of the batch job 
processor utility ($JOBUTIL). This part of the appendix demon- 
strates the use of this method to prepare the example program 
for execut i on . 

The procedure to be used requires the use of work data sets to 
pass to $EDXASM and $LINK. The procedure also uses the same 
input* control* and output data sets used in part III. 

The required work data sets are as follows: 



PROGRAM 


DATA SET NAME 


VOLUME NAME 


SIZE 


$EDXASM 


ASMWORK 


EDX002 


250 


$LINK 


LEWORKl 
LEW0RK2 


EDX002 
EDX002 


400 
150 



Note i You must allocate the work data sets if they are not 
available. They are normally allocated during system installa- 
tion. 

Figure 85 on page 409 is a listing of the $J0BUTIL procedure 
data set used to prepare the example program. The statements in 
a procedure data set are created using $FSEDIT, and saved in a 
data set . 

In this example* the procedure data set is STATPR0C on EDX002. 
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00010 


JOB 


STATIC 


00020 


LOG 


SSYSPRTR 


00030 


* 




00040 


PROGRAM 


SEDXASM, ASMLIB 


00050 


REMARK 


COMPILE OF 'STATSRC STARTED 


00060 


DS 


STATSRC 


00070 


DS 


ASMWORK 


00080 


DS 


ASMOBJ 


00090 


PARM 


LIST $SYSPRTR 


00100 


NOMSG 




00110 


EXEC 




00120 


JUMP 


BADASM,NE,-1 


00130 


* 




00140 


* THIS LINK INCLUDES THE 'IM' SUBROUTUINE SUPPORT BY 


00150 


* USE OF 


THE AUTOCALL OPTION. THE AUTOCALL DEFINITION 


00160 


* STATEMENTS FOR THE 'IM' SUPPORT ARE IN THE SYSTEM 


00170 


* SUPPLIED AUTOCALL DATA SET '$AUTO' ON ASMLIB. 


00180 


* 




00190 


PROGRAM 


$ LINK, ASMLIB 


00200 


REMARK 


LINK EDIT OF 'ASMOBJ 1 OBJECT MODULE STARTED 


00210 


REMARK 


NAME OF LINK CONTROL DATA SET? 


00220 


PAUSE 




00230 


DS 


LEWORK1 


00240 


DS 


LEWORK2 


00250 


PARM 


$SYSPRTR 


00260 


NOMSG 




00270 


EXEC 




00280 


JUMP 


BAD LINK, NE.-l 


00290 


* 




00300 


PROC 


FORMPROCEDX002 


00310 


* 




00320 


JUMP 


END,EQ,-1 


00330 


REMARK 


FORMAT STEP FAILED 


00340 


JUMP 


END 


00350 


LABEL 


BADASM 


00360 


REMARK 


COMPILE STEP FAILED 


00370 


JUMP 


END 


00380 


LABEL 


BAD LINK 


00390 


REMARK 


LINK EDIT STEP FAILED 


00400 


LABEL 


END 


00410 


EOJ 





Figure 85. Batch Job Processor procedure data set 
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Invoking $JOBUTIL 



When you load SJOBUTIL, you are prompted for the name of the 
procedure data set to be used to direct the batch job. Enter the 
data set name '- STATPROC. 

In Figure 85 on page 409, the JOB command at statement 10 
causes the display of a "job started" message on the loading 
terminal as follows: 



> $L $J0BUTIL 






$J0BUTIL 3P, 00: 05: 32, LP= 5F00 






DS1 (NAME.VOLUME): STATPROC 






*** JOB - STATIC - STARTED AT 00:05:55 


00/00/00 


Ktt* 


JOB STATIC 







SEDXASM Step Invocation Under SJOBUTIL 

The LOG command at statement 20 in Figure 85 on page 409 causes 
the procedure data set statements (other than internal com- 



, e m e i 1 l 7u u i r e u l i um uuiup i mr x i^l my lu um s y a u 

The NOMSG command following the PARM prevents the $EDXASM 
load message from being displayed on the loading terminal* but 
the REMARK at statement 50 does appear: 



> $L $J0BUTIL 

$J0BUTIL 3P, 00:05:32, LP= 5F00 

DS1 (NAME,V0LUME): STATPROC 
*** JOB - STATIC - STARTED AT 00:05:55 00/00/00 

JOB STATIC 

REMARK COMPILE OF 'STATSRC STARTED 



The normal completion code for an error-free compilation is -1 . 
The JUMP command (statement 120) tests the compiler completion 
code. If it is not equal to -1, the JUMP transfers control to 
the label BADASM, which is defined by the LABEL command at 
statement 350. The REMARK at 360 would be displayed on the 
loading terminal, and the JUMP at 370 would transfer to label 
END» ending the job. 
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SLINK Step Invocation Under $JOBUTIL 



Assuming normal compiler operation, 
the link-edit step. 



SJOBUTIL continues with 



Through the PAUSE command, SJOBUTIL allows the operator to 
enter job control commands. To illustrate this capability, the 
link control data set is not specified in a DS command. 
Instead, the PAUSE at statement 220 allows the operator to 
enter the link control data set name. When the link procedure 
is entered, the two REMARK statements preceding the PAUSE are 
displayed, along with the PAUSE operator instructions, and 
$J0BUTIL waits for the operator to press the ATTN key and enter 
a command : 



> $1 SJOBUTIL 












$J0BUTIL 


3P 


,00:05:32, LP= 5F00 








DS1 (NAME, VOLUME) 


: STATPROC 










*** JOB - 


STATIC 


- STARTED AT 


00:05:55 


00/00/00 


Mtttt 


JOB 


STATIC 












REMARK 


COMPILE 


OF 'STATSRC 


STARTED 








REMARK 


LINK EDIT OF 'ASMOBJ 


OBJECT MODULE 


STARTED 


REMARK 


NAME OF 


LINK CONTROL 


DATA SET 


1 






PAUSE-*- ATTN : GO/ENTER/ABORT 










PAUSE 















You can continue (GO), enter a job control command (ENTER), or 
abort the job stream processor and end the job (ABORT). In this 
example, the link control data set is to be specified, so enter 
"ENTER". 

You are prompted for the command to be entered. Enter "DS" to 
indicate that a data set is to be specified. 

You are prompted for the command operand to be entered. Enter 
"LINKSTAT" to specify the link control data set. 

You are prompted for the next command to be entered. Enter "GO" 
to direct SJOBUTIL to continue. 

The SJOBUTIL prompts and operator responses entered are shown 
as f ol lows : 
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> SL SJOBUTIL 

$JOBUTIL 3P, 00:47:17, LP= 5F00 

DS1 (NAME,VOLUME): STATPROC 
*** JOB - STATIC - STARTED AT 00:47:26 00/00/00 *** 

JOB STATIC 

REMARK COMPILE OF 'STATSRC STARTED 

REMARK LINK EDIT OF 'ASMOBJ' OBJECT MODULE STARTED 

REMARK NAME OF LINK CONTROL DATA SET ? 

PAUSE-*-ATTN : GO/ENTER/ABORT 

PAUSE 

> ENTER 

ENTER COMMAND DS 
ENTER OPERAND LINKSTAT 
ENTER COMMAND GO 



SUPDATE Step Invocation Under $JOBUTIL (Nested Procedure) 



SJOBUTIL allows secondary (nested) procedures to be invoked 
from a primary procedure. To illustrate, the following $UPDATE 
(formatting) step $J0BUTIL control statements have been 
defined as a nested procedure, stored in data set FORMPROC. 



00010 ************************************************************** 

00020 * THIS IS A "NESTED" PROCEDURE, INVOKED FROM 

00030 * 'STATPROC BY THE 'PROC COMMAND. $JOBUTIL 

00040 * SUPPORTS ONE LEVEL OF NESTING. 

00050 * 

00060 REMARK FORMATTING OF •LINKOUT' STARTED 

00070 PROGRAM $UPDATE 

00080 PARM $SYSPRTR LINKOUT STATPROG YES 

00090 NOMSG 

00100 EXEC 

00110 EOP 



After testing for a successful link-edit (JUMP command at 
statement 280) the primary procedure used in Figure 85 on page 
409 invokes the nested procedure FORMPROC by the PROC command 
at statement 300. At the conclusion of the formatting step, 
control is returned to the primary procedure at statement 320. 
If SUPDATE executed properly, the job is ended without display- 
ing the error message (REMARK at 330). 

The SJOBUTIL display at the end of the job is shown as follows: 
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> $L SJOBUTIL 

DS1 (NAME, VOLUME): STATPROC 
*** JOB - STATIC - STARTED AT 00:05:55 00/00/00 



KM* 



JOB STATIC 

REMARK COMPILE OF 'STATSRC STARTED 

REMARK LINK EDIT OF 'ASMOBJ' OBJECT MODULE STARTED 

REMARK NAME OF LINK CONTROL DATA SET ? 

PAUSE-*- ATTN : GO/ENTER/ABORT 



PAUSE 

> ENTER 

ENTER COMMAND DS 

ENTER OPERAND LINKSTAT 

ENTER COMMAND GO 

REMARK FORMATTING OF 



LINKOUT' STARTED 



SJOBUTIL ENDED AT 00:10:18 



Figure 86 on page 414, Figure 87 on page 415, Figure 88 on page 
416, and Figure 89 on page 417 are the $SYSPRTR output result- 
ing from execution of the SJOBUTIL procedure data set STATPROC. 

The program (STATPROG on volume EDX002) may now be loaded and 
executed by either the $L operator command or the session man- 
ager primary option menu. 
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LOG 


SSYSPRTR 














PROGRAM SEDXASM 


ASMLIB 












OS 


STATSRC 
















OS 


ASMWORK 
















OS 


ASMOBJ 
















PARM 


LIST 


$SYSPRTR 










NOMSG 




















EXEC 




















EOX 


ASSEMBLER STATISTICS 












SOURCE INPUT - 


- STATSRC i 


EDX002 










WORK 


DATA 


SET - 


- ASMWORK , 


EDX002 










OBJECT MODULE - 


- ASMOBJ i 


EDX002 










DATE 


: 02/21/80 


AT It 


:19:l7 










ASSEMBLY TIME: 


25 SECONDS 










STATEMENTS PROCESSEC 


- 


70 










NO STATEMENTS FLAGGED 












OOOO 


0008 


0709 


D6C7 


09C1 


D440 


XMPLSTAT 


PROGRAM 


START 




OOOA 


0000 


0404 


0052 


0000 


0000 










0014 


0506 


0000 


0000 


0000 


0100 










OOIE 


0504 


0000 


0000 


0000 


0554 










0028 


0000 












EXTRN 


$IMOPENtSIMDEFN»*IMPROT»$IMDATA 




002A 


4040 


4040 


4040 


4040 


8000 


I0CB1 


IOCB 


NHIST=0 




0034 


OOFF 


0000 


7FFF 


0000 


0000 










003E 


4040 


4040 


4040 


4040 


8800 


I0CB2 


IOCB 


SCREEN=STATIC 




0048 


OOFF 


0000 


7FFF 


0000 


0000 










0052 


0002 


0403 


C5D5 


C440 


02A6 




ATTNLIST 


(ENDtOUT,$PF,STATIC) 




005C 


0403 


5BD7 


C640 


02AE 












0064 


1025 


002A 








START 


ENOT 


I0CB1 




0068 


B02A 


0000 


OOOF 


8026 


1414 




PRINTEXT 


•CLASS FOSTER PROGRAM' t SPACES=15tL INE=0 




0072 


C303 


C1E2 


E240 


09D6 


E2E3 










007C 


C509 


40D7 


D906 


C709 


C1D4 










0086 


902A 


0002 


0000 


8026 


2221 




PRINTEXT 


•HIT ••ATTN" ANO EMTER ••END" TO END«»SKIP= 


2 


0090 


C8C9 


E340 


7DC1 


E3E3 


D57D 










009A 


40C1 


D5C4 


40C5 


D5E3 


C5D9 










00A4 


4070 


C5D5 


C470 


40E3 


0640 










OOAE 


C505 


C440 
















00B2 


8026 


OCOC 


40E3 


C8C5 


40D7 




PRINTEXT 


• THE PROGRAM' 




OOBC 


D9D6 


C7D9 


C1D4 














00C2 


902A 


0002 


0000 


8026 


201F 




PRINTEXT 


•HIT ANY PROGRAM FUNCTION KEY T0'tSKIP=2 




OOCC 


C8C9 


E340 


C1D5 


E840 


0709 










0006 


D6C7 


D9CI 


0440 


C6E4 


D5C3 










OOEO 


E3C9 


06D5 


40D2 


C5E8 


40E3 










OOEA 


D640 


















OOEC 


8026 


1A1A 


40C2 


D9C9 


D5C7 




PRINTEXT 


• BRING UP THE ENTRY SCREEN' 




00F6 


40E4 


D740 


E3C8 


C540 


C5D5 










0100 


E3D9 


E840 


E2C3 


D9C5 


C5D5 










010A 


8025 












DEOT 






010C 


0018 


02B6 








CHECK 


WAIT 


ATTNECBtRESET 




0110 


A0A2 


02B6 


0001 


0250 






IF 


(ATTNEC9tE0»l)tGOTOtENOIT 




0118 


C29E 


0000 


04C6 


02C4 




GETIMAGE 


CALL 


tlMOPENt (DSETNAME)t(IMAGEBUF) 




0120 


A0A2 


04D6 


FFFF 


0168 






IF 


(XMPLSTAT*2tNEt-l) 




0128 


005C 


02BE 


0406 








MOVE 


ERRC00EtXMPLSTAT*2 




012E 


8026 


1818 


7CC9 


D4C1 


C7C5 




PRINTEXT '3IMAGE OPEN ERRORtCOOE =• 




0138 


40D6 


D7C5 


0540 


C5D9 


0906 










0142 


D96B 


C3D6 


C4C5 


407E 












014A 


0028 


02BE 


0001 








PRINTNUM ERRCODE 




0150 


C026 


OEOE 


7CD9 


C5E3 


09E8 




QUESTION '3RETRY OPEN ? • tYES=GET IMAGEtNO=ENOIT 




015A 


40D6 


07C5 


D540 


6F40 


C02E 










0164 


0118 


0250 
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ENDIF 






0168 


C29E 


0000 


003E 


02C4 






CALL 


5IMDEFN, (I0CB2) t (IMAGEBUF) 




0170 


1025 


003E 










ENOT 


I0CB2 




0174 


1430 












TERMCTRL 


BLANK 




0176 


C29E 


0000 


02C4 


0000 






CALL 


ilMPROT, (IMAGEBUF), 




017E 


819E 


0000 


02C4 








CALL 


tIMDATA, (IMAGEBUF) 




0184 


B02A 


0004 


OOOC 








PRINTEXT 


LINE=4,SPACES=12 




018A 


IC30 












TERMCTRL 


DISPLAY 




018C 


2030 










WAITONE 


WAIT 


KEY 




018E 


00A1 


0406 


0004 


0204 


019E 




GOTO 


(READ,El,E2,E3,E4),XMPLSTAT+2 




0198 


01A8 


01B2 


01BC 














019E 


805C 


02BC 


0006 






El 


MOVE 


LINENBR, 6 




01A4 


OOAO 


01C2 










GOTO 


DELETE 




01A8 


805C 


02BC 


OOOB 






E2 


MOVE 


LINENBR, 11 




01AE 


OOAO 


01C2 










GOTO 


DELETE 




01B2 


805C 


02BC 


0010 






E3 


MOVE 


LINENBR, 16 




01B8 


OOAO 


01C2 










GOTO 


DELETE 




01BC 


805C 


02BC 


0015 






E4 


MOVE 


LINENBR, 21 




01C2 


E02A 


02BC 


0000 


F030 


0004 


DELETE 


ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




01CC 


2000 


















01CE 


8032 


02BC 


0001 








ADD 


LINENBR, 1 




0104 


E02A 


02BC 


0000 


F030 


0004 




ERASE 


MODE = LINE,TYPE= f )ATA,LINE = LINENBR 




01DE 


2000 


















01EO 


8032 


02BC 


0001 








ADD 


LINENBR, 1 




01E6 


E02A 


02BC 


0000 


F030 


0004 




ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




01F0 


2000 


















01F2 


8035 


02BC 


0002 








SUBTRACT 


LINENBR, 2 




01F8 


A02A 


02BC 


0006 








PRINTEXT 


LINE=LINENBR,SPACES=6 




01FE 


1C30 












TERMCTRL 


DISPLAY 




0200 


OOAO 


018C 










GOTO 


WAITONE 




0204 


F02A 


0002 


0037 


C026 


OEOE 


READ 


QUESTION 


•MORE ENTRIES ? • ,L INE = 2 , SP ACES=55,NO= 


CLEANUP 


20E 


0406 


D9C5 


40C5 


D5E3 


D9C9 










0218 


C5E2 


406F 


8026 


0244 












0220 


F02A 


0002 


0037 


F030 


0004 




ERASE 


M0DE=LINE,LINE=2,SPACES=55,TYPE=DATA 




022A 


2000 


















022C 


F02A 


0006 


0000 


F030 


0000 




ERASE 


M0DE=SCRE6N,LINE=6 




0236 


2000 


















0238 


B02A 


0006 


0006 








PRINTEXT 


LINE=6,SP4CES=6 




023E 


1C30 












TERMCTRL 


DISPLAY 




0240 


OOAO 


018C 










GOTO 


WAITONE 




0244 


F030 


0001 


2000 






CLEANUP 


ERASE 


MODE= SCREEN, TYPE= ALL 




024A 


8025 












DEQT 






024C 


OOAO 


0064 










GOTO 


START 




0250 


0022 


FFFF 








ENDIT 


PROGSTOP 






0254 


5050 












DATA 


X'5050' 




0256 


6060 


6060 


6060 


6060 


6060 


DASHES 


DATA 


80C 1 -' 




02A6 


0019 


02B6 


0001 






OUT 


POST 


ATTNECB, 1 




2AC 


001D 












ENDATTN 






02AE 


0019 


02B6 


FFFF 






STATIC 


POST 


ATTNECB, -1 




02B4 


001D 












ENDATTN 






02B6 


FFFF 


0000 


0000 






ATTNECB 


ECB 






02BC 


0000 










LINENBR 


DATA 


F'O* 




02BE 


0000 










ERRCQDE 


DATA 


F'O* 




2C0 


0000 


0200 


0000 


0000 


0000 


IHAGEBUF 


BUFFER 


512, BYTES 




02CA 


0000 


0000 


0000 


0000 


0000 










04BE 


0000 


0000 


0000 














04C4 


OEOD 


E5C9 


C4C5 


06F1 


6BC5 


DSETNAME 


TEXT 


•VIDE01,EDX002' 




04CE 


C4E7 


FOFO 


F240 
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04D4 


0000 


0000 


0000 


0234 


0000 


04DE 


OODO 


0000 


0064 


04D4 


0000 


04E8 


0000 


0000 


0000 


0000 


0000 


04F2 


0002 


0096 


0000 


0000 


FFFF 


04FC 


0000 


0000 


0500 


0000 


0000 


0506 


0502 


E7D4 


D7D3 


E2E3 


C1E3 


0510 


0000 


0000 


0000 


0000 


0000 


051A 


0000 


0000 


FFFF 


0000 


0000 


0524 


0000 


0000 


0000 


0404 


0000 


052E 


0000 


0000 


0000 


0000 


0000 


054C 


0000 


0000 


04D4 


0080 


0000 


0556 


0000 


0000 


0234 


0000 


OODO 


0560 


0000 


0000 


0554 


0000 


0000 


056A 


0000 


0000 


0000 


0000 


0001 


0574 


OOOA 


0000 


0000 


FFFF 


0000 


057E 


0000 


0580 


0000 


0000 


0582 


0586 


5BC1 


E3E3 


C1E2 


0240 


0000 


0592 


0000 


0000 


0000 


0000 


0000 


059C 


0000 


FFFF 


0000 


0000 


0000 


05A6 


0000 


0000 


0404 


0000 


0000 


05B0 


0000 


0000 


0000 


0000 


0000 


05CE 


0000 


0554 


0080 


0000 


0000 


05D8 


0000 


0000 


0000 


0000 


0000 


05E2 


0000 


0000 


0000 


0000 




SVC 




rfXTRN 








SUPEXIT 


rfXTRN 








SETBUSY 


rfXTRN 








SIMOPEN 


EXTRN 








SIMOEFN 


EXTRN 








SIMPROT 


EXTRN 








tIMDATA 


EXTRN 









ENDPROG 



COMPLETION CODE = 



$EDXASM 


ENDED AT 16:19:50 


JUMP 


BADASM,NEt-l 


PROGRAM 


SLINK, ASMLIB 


DS 


LINKSTAT 


OS 


LEW0RK1 


OS 


LEW0RK2 


PARM 


SSYSPRTR 


NOMSG 




EXEC 
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SLINK EXECUTION CONTROL RECORDS 
440000 FROM LINKSTAT.EDX002 

OUTPUT LINKOUT AUTO = $ AUTOt ASML IB 
000210INCLUDE ASMOBJ 

000220 INCLUDE SIMOPENt ASMLIB VIA AUTOCALL 
INCLUDE SIMGENtASMLIB VIA AUTOCALL 
INCLUDE S$RETURN»ASMLIB VIA AUTOCALL 
END 
***** UNRESOLVED EXTERNAL REFERENCES 
410000 WXTRN SVC 

WXTRN SUPEXIT 
WXTRN SETBUSY 
OUTPUT NAME= LINKOUT 



ESO TYPE 


LABEL 


ADDR 


LENGTH 


430000 CSECT 




0000 


05EA 


CSECT 




05EA 


076A 


ENTRY 


SIMOPEN 


05EC 




ENTRY 


DSOPEN 


090E 




CSECT 




0D54 


03E0 


ENTRY 


SIMDEFN 


0D56 




ENTRY 


SIMPROT 


0DF2 




ENTRY 


SIMDATA 


0F38 




ENTRY 


SPACK 


1018 




ENTRY 


SUNPACK 


1088 




CSECT 




1134 


0026 


ENTRY 


RETURN 


1134 




MODULE TEXT LENGTH= 115A, RLD 


COUNT= 


LINKOUT ADDED TO EDX002 





SLINK COMPLETION CODE= 
AT 16:22:07 ON 02/21/80 



SLINK 


ENDED AT 16:22:08 


JUMP 


BADLINK,NE,-1 


PROC 


F0RMPR0CfEDX002 


PROGRAM 


SUPOATE 


PARM 


SSYSPRTR LINKOUT 


NOMSG 




EXEC 




STATPROG 


STORED 


SUPDATE 


ENDED AT 16:22:18 


JUMP 


END.EO.-l 


LABEL 


END 



STATPROG YES 



Figure 89. $JOBUTIL Execution Listing (Part 4 of 4) 
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EVENT DRIVEN EXECUTIVE LIBRARY SUMMARY 



The library summary is a guide to the Event Driven Executive 
library. By briefly listing the content of each book and 
providing a suggested reading sequence for the library, it 
should assist you in using the library as a whole as well as 
direct you to the individual books you require. 



Event Driven Executive Library 



The IBM Series/1 Event Driven Executive library materials 
consist of five full-sized books, a quick reference pocket 
book, and a set of tabs* 



IBM Series/1 Event Driven Executive Svstem Guide 


(or 


System Guide), SC34-0312 




IBM Series/1 Event Driven Executive Utilities, Opera 


itor 


Commands, Program Preparation, Messages and Codes 


(or 


Uti 1 i t ies) , SC34-0313 




IBM Series/1 Event Driven Executive Language Reference 


(or 


Lanquaqe Reference), SC34-0314 




IBM Series/1 Event Driven Executive Communications 


and 



Terminal Application Guide (or Communications Guide ) , 
SC34-0316 

IBM Series/1 Event Driven Executive Internal Design (or 
Internal Design ), LY34-0168 

IBM Series/1 Event Driven Executive Multiple Terminal Man- 
ager Internal Design ( or Multiple Terminal Manager 
Internal Design ), LY34-0190 

IBM Series/1 Event Driven Executive Indexed Access Method 
Internal Design (or Indexed Access Method Internal 
Design ) , LY34-0189 

IBM Series/1 Event Driven Executive Reference Summary (or 
Reference Summary ), SX34-0101 

I BM Series / 1 Event Driven Executive Tabs (or Tabs ) , 
SX34-0030 
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Summary of Library 



System Guide 



The System Guide introduces the concepts and capabilities of 
the Event Driven Executive system. It discusses mu 1 t i -task i ng * 
program and task structure; program overlays? storage manage- 

mentf and data management. 

Planning aids include hardware and software requirements* 
along with guidelines for storage estimating. 

The System Guide also presents step-by-step procedures for 
generating a supervisor tailored to your Series/1 hardware 
configuration and software needs. 

The description of the Indexed Access Method contains the 
information on how to write applications that use indexed data 
sets . 

The description of the session manager includes a procedure for 
modifying the session manager to include application programs 
in the primary option menu so that you can execute them under 
the session manager. You can also add a procedure to compile* 

link? and update programs, 

Information is also provided concerning partitioned data sets* 
tape data organization* diagnostic aids* inter-program commu- 
nication* logical screens* and dynamic data set allocation. 



Uti lities 

Utilities describes? 

• Event Driven Executive utility programs 

• Operator commands 

• Procedures to prepare and execute system and application 
programs 

• The session manager -- a menu-driven interface program 
that will invoke the programs required for program devel- 
opment 

• Messages and codes issued by the Event Driven Executive 
system 
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The operator commands* program preparation facilities* and 
session manager are grouped by function and discussions 
include detailed syntax and explanations. The utilities are 
presented in alphabetical order. 



Language Reference 



The Language Reference familiarizes you with the Event Driven 
Language by first grouping the instructions into functional 
categories. Then the instructions are listed alphabetically, 
with complete syntax and an explanation of each operand. 

The final section of the Language Reference contains examples 
of using the Event Driven language for applications such as: 

Program loading 

User exit routine 



G r a p h i c s 

I/,0 level control program 

Indexing and hardware register usage 



Communications Guide 

The Communications Guide introduces the Event Driven Executive 
communications support -- binary synchronous communications, 
asynchronous communications, and the Host Communications 
Facility. 

The C ommunications Guide contains coding details for all util- 
ities and Event Driven language instructions needed for commu- 
nications support and advanced terminal applications. 



Internal Design 



Interna 1 Pes i gn describes the internal logic flow and specifi- 
cations of the Event Driven Executive system so that you can 
understand how the system interfaces with application pro- 
grams. It familiarizes you with the design and implementation 
by describing the purpose, function, and operation of the vari- 
ous Event Driven Executive system programs. 
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Multiple Terminal Manager Internal Design and Indexed Access 
Method Internal Design describe the internal logic flow and 
specifications of these programs. 

Unlike the other manuals in the library, the Internal Pes i gn 
books contain material that is the licensed property of IBM and 
they are available only to licensed users of the Event Driven 
Executive system. 



Reference Summary 



The Reference Summary is a pocket-sized booklet to be used for 
quick reference. It lists the Event Driven language 
instructions with their syntax, the utility and program prepa- 
ration commands* and the completion codes. 



Tabs 



The tabs package must be ordered separately. The package con- 
tains 33 index tabs by subject, with additional blank tabs. 
These extended tabular pages can be inserted at the front of 
various sections of the library. The tabs are color coded 
according to the major library topics. 



Reading Sequence 



All readers of the Event Driven Executive library should begin 
with the first three chapters of the System Guide 
("Introduction," "The Supervisor and Emulator," and "Data Man- 
agement") for an overview of the Event Driven Executive con- 
cepts and facilities. 

Readers responsible for installing and preparing the system 
should then continue in the System Gu i de with "System Config- 
uration" and "System Generation." 

All readers should review the Utilities "Introduction" to 
become familiar with the utility functions available for the 
Event Driven Executive system. Then you can read more specific 
sections for particular utilities, operator commands, and pro- 
gram preparation facilities. 

After you have a basic understanding of the Event Driven Execu- 
tive system and how you can best use the system for your appli- 
cations, you should read the Language Reference 

"Introduction." This will familiarize you with the potential 
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of the Event Driven Language and prepare you to start coding 
application programs. 

If you have communications support for your Event Driven Execu- 
tive system* you should read the Communications Guide , which is 
an extension of the System Guide * Utilities , and the Language 
Reference . 

After you know the functions of the various Event Driven 
Language instructions* utilities* and program preparation 
facilities* you may wish to refer only to the Reference Summary 
for correct syntax while coding your applications. 

Only readers responsible for the support or modification of the 
Event Driven Executive system need to read Interna 1 Pes i gn . 



OTHER EVENT DRIVEN EXECUTIVE PROGRAMMING PUBLICATIONS 



IBM Series/1 Event Driven Executive FORTRAN IV User's 
Guide * SC34-0315. 

IBM Series/1 Event Driven Executive PL/I Language 
Reference * GC34-0147. 

IBM Series/1 Event Driven Executive PL/I User's Guide * 
GC34-0148. 

IBM Series/1 Event Driven Executive COBOL Programmer's 
Guide * SL23-0014. 

IBM Series/1 Event Driven Executive Sort/Merge Program- 
mer 's Gui de , SL23-0016 

IBM Series/1 Event Driven Executive Macro Assembler 
Reference * GC34-0317. 

IBM Series/1 Event Driven Executive Study Guide * 
SR30-0436. 



OTHER SERIES/1 PROGRAMMING PUBLICATIONS 

• IBM Series/1 Programming System Summary * GC34-0285. 

• IBM Series/1 COBOL Language Reference * GC34-0234. 

• IBM Series/1 FORTRAN IV Language Reference * GC34-0133 
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IBM Series/1 Host Communicati 


ons Facility Proqram 


Description Manual, SH20-1819. 




IBM Series/1 Mathematical and 


Functional Subroutine 



Li brarv User 's Gui de , SC34-0139. 

• IBM Series/1 Macro Assembler Reference Summary , SX 3 4-0128 

• IBM Series/1 Data Collection Interactive Programming RPQ 
P82600 User 's Guide , SC34-1654. 

OTHER PROGRAMMING PUBLICATIONS 

• IBM Data Processing Glossary , GC 20-1699. 

• IBM Ser i es/1 Graph i c Bibliography , GA34-0055. 

• IBM OS/VS Basic Telecommunications Access Method (BTAM) , 
GC27-6980. 

• General Information — Binary Synchronous Communications , 
GA27-3004. 

• IBM Svstem/370 Program Preparation Facility , SB30-1072. 
SERIES/1 SYSTEM LIBRARY PUBLICATIONS 



IBM Series/1 4952 Processor 


and 


Processor 


Features 


Description, GA34-0084. 








IBM Series/1 4953 Processor 


and 


Processor 


Features 


Description, GA34-0022. 








IBM Series/1 4955 Processor 


and 


Processor 


Features 



Description , GA34-0021. 

IBM Ser i es/1 Communications Features Description , GA34 
-0028. 

IBM Series/1 3101 Display Terminal Description , GA34-2034. 

I BM Series/1 4962 Disk Storage Unit and 4964 Diskette Unit 
Descr i pt i on , GA34-0024. 

IBM Series/1 4963 Disk Subsystem Description , GA34-0051. 

IBM Series/1 4966 Diskette Magazine Unit Description , 
GA34-0052. 
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IBM Series/1 4969 Magnetic Tape Subsystem Description ! 
GA34-0087. 

IBM Series/1 4973 Line Printer Description ? GA34-0044. 

IBM Series/1 4974 Printer Description ? GA34-0025. 

IBM Series/1 4978-1 Display Station (RPQ D02055) and 
Attachment (RPQ D02038) General Information , GA34-1550 

IBM Series/1 4978-1 Display Station, Keyboard (RPQ D02056) 
General Information , GA34-1551 

IBM Series/1 4978-1 Display Station, Keyboard (RPQ D02057) 
General Information , GA34-1552 

I BM Series/1 4978-1 Display Station Keyboards (RPQ D02064 
and D02065) General Information , GA34-1553 

IBM Series/1 4979 Display Station Description , GA34-0026 

IBM Series/1 4982 Sensor Input /Output Unit Description , 
GA34-0027 

IBM Series/1 Data Collection Interactive RPQs D02312, 
D02313, and D02314 Custom Feature , GA34-1567 
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GLOSSARY 



This glossary contains terms that are»used'in the Series/1 Event Driven 
Executive software publications. All software and hardware terms are 
Series/1 oriented. This glossary defines terms used in this library and 
serves as a supplement to the IBM Data Processing Glossary (GC20-1699). 



$SYSLOGA. The name of the 
alternate system logging device. 
This device is optional but, if 
defined, should be a terminal with 
keyboard capability, not just a 
pri nter . 

$SYSLOG. The name of the system 
logging device or operator 
station; must be defined for everv 
system. It should be a terminal 
with keyboard capability, not just 
a printer. 



$SYSPRTR. 
printer. 



The name of the system 



ACCA. See asynchronous 
communications control adapter. 

address key. Identifies a set of 
Series/1 segmentation registers 
and represents an address space. 
It is one less than the partition 
number. 



the Multiple Terminal Manager 
faci li ti es. 

asynchronous communications con- 
trol adapter. An ASCII terminal 
attached via #1610, #2091 with 
#2092, or #2095 with #2096 adapt- 
ers. 

attention list. A series of pairs 
of 1 to 8 byte EBCDIC strings and 
addresses pointing to EDL 
instructions. When the attention 
key is pressed on the terminal, 
the operator can enter one of the 
strings to cause the associated 
EDL instructions to be executed. 

backup. A copy of data to be used 
in the event the original data is 
lost or damaged. 

base records. Records that have 
been placed into an indexed data 
set while in load mode. 



address space. The logical 
storage identified by an address 
key. An address space is the 
storage for a partition. 



basic exchange format. A standard 
format for exchanging data on 
diskettes between systems or 
devi ces. 



application program manager. The 
component of the Multiple Terminal 
Manager that provides the program 
management facilities required to 
process user requests. It con- 
trols the contents of a program 
area and the execution of programs 
within the area. 



binary synchronous device data 
block (BSCDDB). A control block 
that provides the information to 
control one Series/1 Binary Syn- 
chronous Adapter. It determines 
the line characteristics and pro- 
vides dedicated storage for that 
li ne. 



application program stub. A 
collection of subroutines that are 
appended to a program by the link- 
age editor to provide the link 
from the application program to 



block. (1) See data block or 
index block. (2) In the Indexed 
Method, the unit of space used by 
the access method to contain 
indexes and data. 
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BSCDDB. See binary synchronous 
device data block. 

buffer. An area of storage that 
is temporarily reserved for use in 
performing an input/output oper- 
ation, into which data is read or 
from which data is written. See 
input buffer and output buffer. 

bypass label processing. Access 
of a tape without any label proc- 
essing support. 

CCB. See terminal control block. 

character image. An alphabetic 
numeric, or special character 
defined for an IBM 4978 Display 
Station. Each character image is 
defined by a dot matrix that is 
coded into eight bytes. 



can be used to contain control 
blocks or data that will be 
accessed by more than one program. 

completion code. An indicator 
that reflects the status of the 
execution of a program. The com- 
pletion code is displayed or 
printed on the program's output 
devi ce. 

conversion. See update. 

cross partition service. A 
function that accesses data in two 
parti ti ons. 

data block. In an indexed file, 
an area that contains control 
information and data records. 
These blocks are a multiple of 256 
bytes. 



character image table. An area 
containing the 256 character 
images that can be defined for an 
IBM 4978 Display Station. Each 
character image is coded into 
eight bytes, the entire table of 
codes requiring 2048 bytes of 
storage. 

cluster. In an indexed file, a 
group of data blocks that is 
pointed to from the same 
primary-level index block, and 
includes the primary-level index 
block. The data records and 
blocks contained in a cluster are 
logically contiguous, but are not 
necessarily physically contiguous. 

COD (change of direction). A 
character used with ACCA terminal 
to indicate a reverse in the 
direction of data movement. 

command. A character string from 
a source external to the system 
that represents a request for 
action by the system. 

common area. A user-defined data 
area that is mapped into every 
partition at the same address. It 



data set. A group of contiguous 
records within a volume pointed to 
by a directory member entry in the 
directory for the volume. 

data set control block (DSCB). A 

control block that provides the 
information required to access a 
data set, volume or directory 
using READ and WRITE. 

data set shut down. An indexed 
data set that has been marked (in 
main storage only) as unusable due 
to an error. 

DCE. See directory control entry. 

DDB. See disk data block. 

direct access. (1) The access 
method used to READ or WRITE 
records on a disk or diskette 
device by speci fyi ng thei r 
location relative the beginning of 
the data set or volume. (2) In 
the Indexed Access Method, locat- 
ing any record via its key without 
respect to the previous operation. 
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directory. A series of contiguous 
records in a volume that describe 
the contents in terms of allocated 
data sets and free spaces. 

directory control entry 
(DCE). The first 32 bytes of the 
first record of a directory in 
Nhich a description of the direc- 
tory is stored. 

directory member entry (DME). A 
32-byte directory entry describing 
an allocated data set. 

disk data block (DDB). A control 
block that describes a direct 
access volume. 

display station. An IBM 4978 or 
4979 display terminal or similar 
terminal with a keyboard and a 
video display. 

DME. See directory member entry. 

DSCB. See data set control block. 

dynamic Storage. An increment of 
storage that is appended to a pro- 
gram when it is loaded. 



event control block (ECB). A 

control block used to record the 
status (occurred or not occurred) 
of an event; often used to syn- 
chronize the execution of tasks. 
ECBs are used in conjunction with 
the WAIT and POST instructions. 

event driven language (EDL). The 

language for input to the Event 
Driven Executive compiler 
($EDXASM), or the Macro and Host 
assemblers in conjunction with the 
Event Driven Executive macro 
libraries. The output is intei — 
preted by the Event Driven Execu- 
tive emulator. 

EXio (execute input or 
output). An EDL facility that 
provides user controlled access to 
Series/1 input/output devices. 

external label. A label attached 
to the outside of a tape that 
identifies the tape visually. It 
usually contains items of iden- 
tification such as file name and 
number* creation data, number of 
volumes, department number, and so 
on. 



end-of-data indicator. A code 
that signals that the last record 
of a data set has been read or 
written. End-of-data is deter- 
mined by an end-of-data pointer in 
the DME or by the physical end of 
the data set. 



external name (EXTRN). The 1- to 

8-character symbolic EBCDIC name 
for an entry point or data field 
that is not defined within the 
module that references the name. 

FCA. See file control area. 



ECB. See event control block. 



FCB. See file control block. 



EDL. See Event Driven Language. 

emulator. The portion of the 
Event Driven Executive supervisor 
that interprets EDL instructions 
and performs the function speci- 
fied by each EDL statement. 

end-Of-tape (EOT). A reflective 
marker placed near the end of a 
tape and sensed during output. 
The marker signals that the tape 
is nearly full. 



file control area (FCA). A 

Multiple Terminal Manager data 
area that describes a file access 
request. 

file control block (FCB). In an 
indexed data set, the first block 
of the data set. It contains 
descriptive information about the 
data contained in the data set. 
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file manager. A collection of 
subroutines contained within the 
program manager of the Multiple 
Terminal Manager that provides 
common support for all disk data 
transfer operations as needed for 
transaction-oriented application 
programs. It supports indexed and 
direct files under the control of 
a single callable function. 

formatted screen image. A 
collection of display elements or 
display groups (such as operator 
prompts and field input names and 
areas) that are presented together 
at one time on a display device. 

free pool. In an indexed data 
set/ a group of blocks that can be 
used as either a data block or an 
index block. These differ from 
other free blocks in that these 
are not initially assigned to spe- 
cific logical positions in the 
data set. 

free space. In the Indexed Access 
Method, record spaces or blocks 
that do not currently contain 
data, and are available for use. 

free space entry (FSE). A 4-byte 
directory entry defining an area 
of free space within a volume. 

FSE. See free space entry. 

hardware timer. The timer 
features available with the 
Series/1 processors. Specif- 
ically, the 7840 Timer Feature 
card or the native timer (4952 
only). Only one or the other is 
supported by the Event Driven 
Execut i ve. 

host assembler. The assembler 
licensed program that executes in 
a 370 (host) system and produces 
object output for the Series/1. 
The source input to the host 
assembler is coded in Event Driven 
Language or Series/1 assembler 
language. The host assembler 



refers to the System/370 Program 
Preparation Facility (5798-NNQ). 

host system. Any system whose 
resources are used to perform 
services such as program prepara- 
tion for a Series/1. It can be 
connected to a Series/1 by a com- 
munications link. 

IACB. See indexed access control 
block. 

IAR. See instruction address 
regi ster . 

ICB. See indexed access control 
block. 

IIB. See interrupt information 
byte. 

image Store. The area in a 4978 
that contains the character image 
table. 

index. In the Indexed Access 
Method, an ordered collection of 
pairs, each consisting of a key 
and a pointer, used to sequence 
and locate the records in an 
Indexed Access Method data set. 

index block. In an indexed file, 
an area that contains control 
information and index entries. 
These blocks are a multiple of 256 
bytes. 

indexed access control block 
(IACB/ICB). The control block 
that relates an application pro- 
gram to an indexed data set. 

indexed access method. An access 
method for direct or sequential 
processing of fixed-length records 
by use of a record* s key. 

indexed data set. A data set 
specifically created, formatted 
and used by the Indexed Access 
Method. An indexed data set may 
also be called an indexed file. 
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indexed file. Synonym for indexed 
data set. 

index entry. In an indexed file, 
a key-pointer pair, where the 
pointer is be used to locate a 
lowei — level index block or a data 
block. 



request to or from a terminal. 

job. A collection of related 
program execution requests pre- 
sented in the form of job control 
statements, identified to the 
jobstream processor by a JOB 
statement. 



index register (81, 82). Two 

words defined in EDL and contained 
in the task control block for each 
task. They are used to contain 
data or for address computation. 

input buffer. (1) See buffer. 
(2) In the Multiple Terminal Man- 
ager, an area for terminal input 
and output. 

input output control block 
(IOCB). A control block contain- 
ing information about a terminal 
such as the symbolic name, size 
and shape of screen, the size of 
the forms in a printer. 

instruction address register 

(IAR). The pointer that identi- 
fies the instruction currently 
being executed. The Series/1 
maintains a hardware IAR to detei — 
mine the Series/1 assembler 
instruction being executed. It is 
located in the level status block 
(LSB). 

interactive. The mode in which a 
program conducts a continuous 
dialogue between the user and the 
system. 

internal label. An area on tape 
used to record identifying infoi — 
mation (similar to the identifying 
information placed on an external 
label). Internal labels are 
checked by the system to ensure 
that the correct volume is 
mounted. 

interrupt information byte 
(IIB). In the Multiple Terminal 
Manager, a word containing the 
status of a previous input/output 



job control statement. A 
statement in a job that specifies 
requests for program execution, 
program parameters, data set defi- 
nitions, sequence of execution, 
and, in general, describes the 
environment required to execute 
the program. 

job stream processor. The job 
processing facility that reads job 
control statements and processes 
the requests made by these state- 
ments. The Event Driven Executive 
job stream processor is SJOBUTIL. 

key. In the Indexed Access 
Method, one or more consecutive 
characters in a data record, used 
to identify the record and estab- 
lish its order with respect to 
other records. See also key 
field. 

key field. A field, located in 
the same position in each record 
of an Indexed Access Method data 
set, whose content is used for the 
key of a record. 

level status block (LSB). A 
Series/1 hardware data area that 
contains processor status. 

library. A set of contiguous 
records within a volume. It con- 
tains a directory, data sets 
and/or available space. 

line. A string of characters 
accepted by the system as a single 
input from a terminal; for exam- 
ple, all characters entered before 
the carriage return on the tele- 
typewriter or the ENTER key on the 
display station is pressed. 
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link edit. The process of 
resolving symbols in one or more 
object modules to produce another 
single module that is the input to 
the update process. 

load mode. In the Indexed Access 
Method, the mode in which records 
are initially placed in an indexed 
file. 

load module. A single module 
having cross references resolved 
and prepared for loading into 
storage for execution. The module 
is the output of the $UPDATE or 
SUPDATEH utility. 

load point. A reflective marker 
placed near the beginning of a 
tape to indicate where the first 
record is written. 

lock. In the Indexed Access 
Method, a method of indicating 
that a record or block is in use 
and is not available for another 
request. 



LSB 



See level status block. 



member. A term used to identify a 
named portion of a partitioned 
data set (PD5). Sometimes member 
is also used as a synonym for a 
data set. See data set. 

menu. A formatted screen image 
containing a list of options. The 
user selects an option to invoke a 
program. 

menu-driven. The mode of 
processing in which input consists 
of the responses to prompting from 
an option menu. 

multifile volume. A unit of 
recording media, such as tape reel 
or disk pack, that contains more 
than one data file. 

multiple terminal manager. An 
Event Driven Executive licensed 
program that provides support for 



transact i on-ori en ted appli cati ons 
on a Series/1. It provides the 
capability to define transactions 
and manage the programs that sup- 
port those transactions. It also 
manages multiple terminals as 
needed to support these trans- 
act i ons. 

multivolume file. A data file 
that, due to its si2e, requires 
more than one unit of recording 
media (such as tape reel or disk 
pack) to contain the entire file. 

non-labeled tapes. Tapes that do 
not contain identifying labels (as 
in standard labeled tapes) and 
contain only files separated by 
tapemarks. 

null character. A user-defined 
character used to define the 
unprotected fields of a formatted 
screen. 

option selection menu. A full 
screen display used by the Session 
Manager to point to other menus or 
system functions, one of which is 
to be selected by the operator. 
(See primary option menu and sec- 
ondary option menu.) 

output buffer. (1) See buffer. 
(2) In the Multiple Terminal Man- 
ager, an area used for screen 
output and to pass data to subse- 
quent transaction programs. 

overlay. The technique of reusing 
a single storage area allocated to 
a program during execution. The 
storage area can be reused by 
loading it with overlay programs 
that have been specified in the 
PROGRAM statement of the program. 

overlay area. A storage area 
within a program reserved for 
overlay programs specified in the 
PROGRAM statement. 
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parameter selection menu. A full 
screen display used by the Session 
Manager to indicate the parameters 
to be passed to a program. 

partition. A contiguous 
fixed-sized area of storage. Each 
partition is a separate address 
space. 



physical timer, 
hardware timer. 



Synonym for 



prefind. To locate the data sets 
or overlay programs to be used by 
a program and to store the neces- 
sary information so that the time 
required to load the prefound 
items is reduced. 

primary-level index block. In an 

indexed data set, the lowest level 
index block. It contains the rel- 
ative block numbers (RBNs) and 
high keys of several data blocks. 
See cluster. 

primary menu. The program 
selection screen displayed by the 
Multiple Terminal Manager. 

primary option menu. The first 
full screen display provided by 
the Session Manager. 

primary task. The first task 
executed by the supervisor when a 
program is loaded into storage. 
It is identified by the PROGRAM 
statement. 

priority. A combination of 
hardware interrupt level priority 
and a software ranking within a 
level. Both primary and secondary 
tasks will execute asynchronously 
within the system according to the 
priority assigned to them. 

process mode. In the Indexed 
Access Method* the mode in which 
records may be retrieved, updated, 
inserted or deleted. 



processor status word (PSW). A 
16-bit register used to (1) record 
error or exception conditions that 
may prevent further processing and 
(2) hold certain flags that aid in 
error recovery. 

program. A di sk- or 
diskette-resident collection of 
one or more tasks defined by a 
PROGRAM statement; the unit that 
is loaded into storage. (See pri- 
mary task and secondary task.) 

program header. The control block 
found at the beginning of a 
program that identifies the prima- 
ry task, data sets, storage 
requirements and other resources 
required by a program. 

program/storage manager. A 
component of the Multiple Terminal 
Manager that controls the 
execution and flow of application 
programs within a single program 
area and contains the support 
needed to allow multiple opei — 
ations and sharing of the program 
area . 

protected field. On a display 
device, a field in which the oper- 
ator cannot enter, modify, or 
erase data from the keyboard. It 
can contain text that the user can 
read. 

PSW. See processor status word. 

QCB. See queue control block. 

QD. See queue descriptor. 

QE. See queue element. 

queue control block (QCB). A data 
area used to serialize access to 
resources that cannot be shared. 
See serially reusable resource. 

queue descriptor (QD). A control 
block describing a queue built by 
the DEFINEQ instruction. 
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queue element (QE). An entry in 
the queue defined by the queue 
descri ptor. 

record. (1) The smallest unit of 
direct access storage that can be 
accessed by an application program 
on a disk or diskette using READ 
and WRITE. Records are 256 bytes 
in length. (2) In the Indexed 
Access Method, the logical unit 
that is transferred between $IAM 
and the user's buffer. The length 
of the buffer is defined by the 
user. 

recovery. The use of backup data 
to recreate data that has been 
lost or damaged. 

reflective marker. A small 
adhesive marker attached to the 
reverse (nonrecordi ng) surface of 
a reel of magnetic tape. 
Normally, two reflective markers 
are used on each reel of tape. 
One indicates the beginning of the 
recording area on the tape (load 
point), and the other indicates 
the proximity to the end of the 
recording area (EOT) on the reel. 

relative record number. An 
integer value identifying the 
position of a record in a data set 
relative to the beginning of the 
data set. The first record of a 
data set is record one, the second 
is record two, the third is record 
three. 



roll screen. A display screen on 
which data is displayed 24 lines 
at a time or data is entered line 
by line, beginning with line at 
the top of the screen and continu- 
ing through line 23 at the bottom 
of the screen. When a roll screen 
device's screen is full (all 24 
lines used), an attempt to display 
the next line results in removal 
of the old screen (screen is 
erased) and the new line on line 
is displayed at the top of the 
screen . 

SBIOCB. See sensor based I/O 
control block. 

second-level index block. In an 

indexed data set, the 
second-lowest level index block. 
It contains the addresses and high 
keys of several primary-level 
i ndex blocks. 

secondary option menu. In the 
Session Manager, the second in a 
series of predefined procedures 
grouped together in a hierarchical 
structure of menus. Secondary 
option menus provide a breakdown 
of the functions available under 
the session manager as specified 
on the primary option menu. 

secondary task. Any task other 
than the primary task. A second- 
ary task must be attached by a 
primary task or another secondary 
task. 



reorganize. For an indexed data 
set, the copying of the data to a 
new indexed data set in a manner 
that rearranges the data for more 
optimum processing and free space 
di stri but i on . 

return code. An indicator that 
reflects the results of the exe- 
cution of an instruction or sub- 
routine. The return code is 
placed in the task code word (at 
the beginning of the task control 
block). 



sector. The smallest addressable 
unit of storage on a disk or 
diskette. A sector on a 4962 or 
4963 disk is equivalent to an 
Event Driven Executive record. On 
a 4964 or 4966 diskette, two sec- 
tors are equivalent to an Event 
Driven Executive record. 

sensor based I/O control block 
(SBIOCB). A control block con- 
taining information related to 
sensor I/O operations. 
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sequential access. The processing 
of a data set in order of occui — 
rence of the records in the data 
set. (1) In the Indexed Access 
Method* the processing of records 
in ascending collating sequence 
order of the keys. (2) When using 
READ/WRITE, the processing of 
records in ascending relative 
record number sequence. 

serially reusable resource 
ISRR). A resource that can only 
be accessed by one task at a time. 
Serially reusable resources are 
usually managed via (1) a QCB and 
ENQ/DEQ statements or (2) an ECB 
and WAIT/POST statements. 

session manager. A series of 
predefined procedures grouped 
together as a hierarchical struc- 
ture of menus from which you 
select the utility functions* pro- 
gram preparation facilities* and 
language processors needed to pre- 
pare and execute application pro- 
grams. The menus consist of a 
primary option menu that displays 
functional groupings and secondary 
option menus that display a break- 
down of these functional 
groupi ngs. 

shared resource. A resource that 
can be used by more than one task 
at the same time. 



shut down. 

down. 



See data set shut 



trailer label following the data 
records) . 

static screen. A display screen 
formatted with predetermined 
protected and unprotected areas. 
Areas defined as operator prompts 
or input field names are protected 
to prevent accidental overlay by 
input data. Areas defined as 
input areas are not protected and 
are usually filled in by an opera- 
tor. The entire screen is treated 
as a page of information. 

subroutine. A sequence of 
instructions that may be accessed 
from one or more points in a pro- 
gram. 

supervisor. The component of the 
Event Driven Executive capable of 
controlling execution of both sys- 
tem and application programs. 

system configuration. The process 
of defining devices and features 
attached to the Series/1. 

SYSGEN. See system generation. 

system generation. The processing 
of user selected options to create 
a supervisor tailored to the needs 
of a specific Series/1 configura- 
ti on. 

system partition. The partition 
that contains the supervisor (par- 
tition number 1* address space 0). 



source module/program. A 
collection of instructions and 
statements that constitute the 
input to a compiler or assembler. 
Statements may be created or modi- 
fied using one of the text editing 
faci li ti es. 

Standard labels. Fixed length 
80-character records on tape con- 
taining specific fields of infoi — 
mation (a volume label identifying 
the tape volume* a header label 
preceding the data records* and a 



tapemark. A control character 
recorded on tape used to separate 
files. 

task. The basic executable unit 
of work for the supervisor. Each 
task is assigned its own priority 
and processor time is allocated 
according to this priority. Tasks 
run independently of each other 
and compete for the system 
resources. The first task of a 
program is the primary task. All 
tasks attached by the primary task 
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ar& secondary tasks. 

task code word. The first two 
words (32 bits) of a task's TCB; 
used by the emulator to pass 
information from system to task 
regarding the outcome of various 
operations* such as event com- 
pletion or arithmetic operations. 

task control block (TCB). A 
control block that contains infor- 
mation for a task. The informa- 
tion consists of pointers, save 
areas, work areas, and indicators 
required by the supervisor for 
controlling execution of a task. 

task supervisor. The portion of 
the Event Driven Executive that 
manages the dispatching and 
switching of tasks. 

TCB, See task control block. 

terminal. A display station, 
teletypewriter or printer. 

terminal control block tCCB). A 
control block that defines the 
device characteristics, provides 
temporary storage, and contains 
links to other system control 
blocks for a particular terminal. 

terminal environment block 
(TEB). A control block that con- 
tains information on a terminal's 
attributes and the program manager 
operating under the Multiple Tei — 
minal Manager. It is used for 
processing requests between the 
terminal servers and the program 
manager. 

terminal screen manager. The 
component of the Multiple Terminal 
Manager that controls the presen- 
tation of screens and communi- 
cations between terminals and 
transaction programs. 

terminal server. A group of 
programs that perform all the 
input/output and interrupt handl- 



ing functions for terminal devices 
under control of the Multiple Ter- 
minal Manager. 

trace range. A specified number 
of instruction addresses within 
which the flow of execution can be 
traced. 

transaction oriented 
applications. Program execution 
driven by operator actions, such 
as responses to prompts from the 
system. Specifically, applica- 
tions executed under control of 
the Multiple Terminal Manager. 

transaction program. See 
transact! on-ori en ted appli cati ons. 

transaction selection menu. A 
Multiple Terminal Manager display 
screen (menu) offering the user a 
choice of functions, such as read- 
ing from a data file, displaying 
data on a terminal, or waiting for 
a response. Based upon the choice 
of option, the application program 
performs the requested processing 
operation. 

unprotected field. On a display 
device, a field in which the user 
can enter, modify, or erase data 
using the keyboard. Unprotected 
fields on a static screen are 
defined by the null character. 

update. (1) To alter the contents 
of storage or a data set. (2) To 
convert object modules, produced 
as the output of an assembly or 
compilation, or the output of the 
linkage editor, into a form that 
can be loaded into storage for 
program execution and to update 
the directory of the volume on 
which the loadable program is 
stored. 

user exit. (1) Assembly language 
instructions included as part of 
an EDL program and invoked via the 
USER instruction. (2) A point in 
an IBM-supplied program where a 
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user written routine can be given 
control . 

vary offline. (1) To change the 
status of a device from online to 
offline. When a device is off- 
line, no data set can be accessed 
on that device. (2) To place a 
disk or diskette in a state where 
it is not available for use by the 
system; however, it will still be 
available for executing I/O at the 
basic access level (EXIO). 



volume. A disk or diskette 
subdivision defined during system 
configuration. A volume may con- 
tain up to 32,767 records. As 
many volumes may be defined for a 
disk as will physically fit. A 
diskette is limited to one volume, 

volume label. A label that 
uniquely identifies a single unit 
of storage media. 



vary online. To restore a device 
to a state where it is available 
for use by the system. 
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COMMON INDEX 



This index is common to the Event Driven Executive library. The index 
includes entries from the seven publications listed below. (The Glossary 
is not indexed.) Each publication has a copy of the index, which provides 
a cross-reference between the publications. 

Each page number entry contains a single letter prefix which identifies 
the publication where the listed subject can be found. The letter pre- 
fixes have the following meanings : 

C = Communications and Terminal Application Guide 

I = Internal Design 

L = Language Reference 

S = System Gui de 

U = Utilities, Operator Commands, Program Preparation, Messages and 
Codes 

M = Multiple Terminal Manager Internal Design 

A = Indexed Access Method Internal Design 



Special Characters 



$$EDXLIB system name L-228, S-57 
$$EDXV0L system name L-228, S-57 
$A display active programs, 

operator command S-63, U-ll 
$ATTASK special task control 

block L-61 
$AUT0 link edit auto call data 

set S-403, U-401 
$B blank (clear) screen, operator 

command S-63, U-12 
$BSCTRCE trace utility for BSC 

lines C-61 
$BSCUT1 trace printing utility for 

ncr r — 6 ? 

$BSCUT2 test utility for BSC 

lines C-64 
$C cancel a program, operator 

command S-63, U-13 
$C0MPRES library compress S-64, 

U-57 
$C0PY copy data sets S-64, U-59 
$C0PYUT1 copy data sets with 

allocation S-64, U-64 
$CP change terminal's partition 
assignment command 

overview 1-73, S-63 
syntax U-14 
$D dump storage, operator command 

S-63, U-15 
$DASDI format disk or diskette 

S-64, U-68 
$DBUGNUC debug module description 

1-77 
$DEBUG debugging tool U-82 
$DIC0MP display composer 

command description U-106 
create partitioned data set 

member S-247 
invoking U-105 
overview S-67 
$DIINTR display interpreter U-150 



$DISKUT1 allocate/delete, list 
directory data 

SJOBUTIL procedure S-229 
allocate partitioned data set 

S-248 
command descriptions U-135 
overview S-64 
$DISKUT2 patch, dump, or clear 
member 

description U-142 
overview S-64 

printing I/O error logs S-275 
syntax U-143 
$DISKUT3 data management utility 
description S-315 
input to S-316 
request block contents S-317 
return codes S-319, U-444 
$DIUTIL display data base utility 

S-248, U-150 
$DUMP dump saved storage and 

registers utility U-163 
$E eject printer page, operator 

command S-63, U-16 
$EDIT1/$EDIT1N text editors 
command syntax 
EDIT U-174 
EDIT mode subcommands 

U-182 
END U-175 
LIST U-176 
READ U-177 
SUBMIT U-179 
WRITE U-180 
control keys U-172 
data set requirements U-169 
line editing commands U-203 
overview S-66, U-169 
summary of commands and 
subcommands U-171 
SEDXASM Event Driven Language 
compi ler 

features supported U-361 
internal overview 1-5, 1-211 
i nvoki ng 

with $J0BUTIL U-368 
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with $L U-370 
with session manager 
U-369 
listing program ($EDXLIST) 

U-370 
options U-358 
output U-359 

overlay program example 1-244 
overview S-71, U-356 
programming considerations 
U-361 

arithmetic expression 

operators U-365 
ATTNLIST U-365 
COPY statements U-362 
ECB and QCB U-362 
EQU U-365 

GETEDIT and PUTEDIT U-365 
instructions requiring 

support modules U-365 
IODEF statement placement 

U-364 
multiple declarations on 

DATA/DC U-363 
source line continuation 
U-361 
required data sets U-357 
usage example S-397 
using the compiler U-356 
$EDXATSR supervisor interface 

routine 1-48 
$EDXDEF hardware configuration 

editing to match hardware con- 
figuration S-117 
overview 1-5, 1-6 
storage map 1-7 
$EDXL language control data set of 

$EDXASM 1-221, U-357 
$EDXLIST compiler listing program 

U-370 
$EDXNUC supervisor data set 

in system generation S-126 
overview 1-5 
with $LINK utility U-399 
$EDXNUC supervisor data sets 

U-399 
$EXEC language emulator linkage 

1-279, 1-313 
$EXEC session manager option 

S-216, U-41 
$F0NT 4978 character image tables 

utility S-68, U-205 
SFSEDIT full-screen editor, host 
and native 

data set requirements U-209 
opti ons 

BROWSE U-213 
EDIT U-214 
END U-218 
READ U-216 
SUBMIT U-217 
WRITE U-216 
overview S-66, U-209 
primary commands U-218 
program function (PF) keys 

U-211 
scrolling U-210 
summary of options and 
commands U-212 
$HCFUT1 Host Communications 

Facility utility C-107 
$IAM Indexed Access Method load 

module S-155 
$IAM task error exit S-178 



$IAMUT1 Indexed Access Method 

utility S-148, U-235 
$IDEF $EDXASM instruction 
def i ni ti on 

description 1-241 
instruction format 1-226 
$IMAGE define screen image 
utility S-68, U-250 
usage example S-387 
$IMDATA subroutine S-303 

usage example S-375 
$IMDEFN subroutine S-301 

usage example S-375 
$IM0PEN subroutine S-300 

usage example S-374 
$IMPR0T subroutine S-302 

usage example S-375 
$INDEX subroutine, $EDXASM 1-233 
$INITDSK initialize or verify 

volume S-64, U-256 
$INITIAL automatic initialization 
and restart 

description S-129 
with session manager S-209, 
U-28 
$I0TEST test sensor I/O, list con- 
figuration S-67, U-263 
$J0BUTIL job stream processor 
S-69, U-271 

commands U-272 
set up procedure U-271 
usage example S-408, U-290 
$L load program, operator command 
internals 1-23 
overview S-63 
syntax U-17 
$LEMSG $LINK message data set 

U-401 
$LINK linkage editor 

data set requirements U-400 
description U-390 
in system generation 1-5 
i nvoki ng 

with $J0BUTIL U-405 
with $L U-405 
with session manager 
U-406 
overview S-71 
usage example S-402 
SLNKCNTL data set S-118 
$L0ADER 1-19, 1-22 

module description 1-78 
$L0G I/O error logging utility 
description S-270, U-292 
overview S-67 
$LPARSE subroutine 1-240 
$M0VEV0L disk volume dump/restore 

S-65, U-294 
$P patch storage, operator 

command S-63, U-18 
$PACK/$UNPACK subroutines S-309 
$PDS partitioned data set utility 
in a program S-259 
overview S-65 
$PFMAP identify 4978 program 

function keys S-68, U-301 
$PREFIND prefind data sets and 

overlays S-69, U-302 
$PRT2780 spooled print utility 

C-72 
$PRT3780 spooled print utility 

C-72 
$RJE2780 remote job entry utility 
C-73, S-66 
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$RJE3780 remote job entry utility 

C-73, 5-66 

$RMU (see Remote Management Util- 
ity) 
$SNCTL session manager program 

S-209, S-212 
$SMEND session manager program 

S-212 
$SMJ0BR session manager program 

S-212 
$SML0G session manager program 

S-212 
$SMMAIN session manager program 

S-210, S-212, U-28 
5SMML0G, logon menu for session 

manager S-212 
$SMMPRIM, primary option menu for 

session manager S-212, U-27, 

U-35 
$SNM02, program preparation sec- 
ondary option menu S-214, U-37 
$SMM03, data management secondary 

option menu S-215, U-39 
$SMM04, terminal utilities 

secondary option menu S-215, 

U-41 
$SMM05, graphics utilities second- 
ary option menu S-216, U-41 
$SMM06, execute program utilities 

secondary option S-216 
$SMM07, job stream processor 

utilities secondary option S-216 
$SMM08, communications utilities 

option S-217, U-43 
$SMM09, diagnostic utilities 

S-217, U-44 
$START supervisor entry point 

1-279, 1-313 
SSTOREMAP example 1-27 
$SYSC0M data area 1-12, 1-279, 

1-313, S-113 
$SYSL0G system logging device 

overview S-110 
$SYSL0GA alternate system logging 

devi ce 

overview S-lll 
$SYSPRTR system printer 

overview S-lll 
$S1ASM Series/1 macro assembler 
description U-372 
internals 1-5, 1-253 
overview S-9 

storage map, general 1-256 
$T set date/time, operator 

command S-63, U-19 
$TAPEUT1 tape management utility 

U-311 
$TCBCCB (ATTACH) L-59 
$TERMUT1 change terminal 

parameters S-68, U-334 
$TERMUT2 

process 4978 image or control 

store S-68, U-339 
restore 4974 image U-339 
$TERMUT3 send message to a 

terminal S-68, U-344 
$TRAP class interrupt trap 

utility S-67, U-348 
$UNPACK/$PACK subroutines S-309 
$UPDATE object program converter 
description U-408 
in system generation 1-5 
overview S-69 
usage example S-407 



$UPDATEH object program converter 

(host) S-69, U-418 
$VARY0FF set disk, diskette, or 

tape offline S-63, U-20 
$VARY0N set disk, diskette, or 

tape online S-63, U-22 

with standard labeled tape 
S-237 
$W display date/time, operator 

command S-63, U-25 
#1 index register 1 L-6 
#2 index register 2 L-6 



A after, $FSEDIT line command 

U-226 
A-conversion L-153 
A/I (see analog input) 
A/0 (see analog output) 
abort task level (SVC abend) 1-49 
ACCA terminal C-7 , L-295 
Access Method, Indexed 

(see Indexed Access Method) 
ACTION, Multiple Terminal Manager 
CALL 

coding description C-130, 

L-360 
internals M-9 
overview C-117, L-29 
acti vate 

error logging, $L0G utility 

U-293 
realtime data member, RT 

$DIC0MP subcommand U-124 
stopped task, GO $DEBUG 

command U-93 
task supervisor execution 

state 1-43 
TRAP function of storage dump, 
$TRAP utility U-348 
AD 

add member, $DIC0MP command 

U-106 
advance, $DIC0MP subcommand 

U-lll 
advance X,Y (PDS) S-255 
assign define key, $TERMUT2 
command U-342 
add 

add member, AD $DIC0MP com- 
mand U-106 
null data set on tape volume, 

TA $TAPEUT1 command U-330 
options to the session 

manager S-224 
support for new I/O terminals 
1-117 

calling conventions 1-118 
code translation tables 

1-118 
linkage conventions 1-119 
terminal instruction 
modification 1-119 
ADD data manipulation instruction 
coding description L-52 
overview L-19 
precision table L-53 
address relocation translator 

1-71, S-42 
addressing indexing feature L-6 
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L-54 
L-55 



ADDV data manipulation 
i nstructi on 

coding description 
index register use 
overview L-19 
precision table L-55 
advance^ AD $DIC0MP subcommand 

U-lll 
advance and prompting input, tei — 

minal I/O L-46 
AI (see analog input) 
AL 

$DIUTIL 



data member, 

U-151 
data set, $DISKUT1 

U-137 
data set, $J0BUTIL 

U-273 
member, $DIC0MP 

U-107 



U-107 
U-151 

1-166, 



allocate 

command 

allocate 

command 

allocate 

command 

allocate 

command 

allocate 

data set 

$J0BUTIL command U-273 
AL $DISKUT1 command U-137 
ALLOCATE function C-214 
tape, TA $TAPEUT1 command 
U-333 
member 

$DIC0MP command 
$DIUTIL command 
$PDS S-261 
ALLOCATE function C-216, 

1-174 
allowable precision table L-20 
alter member AL $DIC0MP command 

U-107 
alter terminal configuration, 

$TERMUT1 U-334 
alternate system logging device 

(SSYSLOGA) S-47 
alternate tracks S-58, U-73, U-78 
ALTIAM Indexed Access Method 

subroutine S-167 
analog input S-49 

AI $I0TEST command U-268 
control block 1-129 
IODEF statement L-187 
overview S-49 
SBIO instruction L-263 
SENSORIO configuration 
statement L-39 
analog output 

AO $I0TEST command U-264 
control block 1-129 
description S-49 
IODEF statement L-186 
SBIO instruction L-264 
SENSORIO configuration 
statement L-39, S-84 
AND data manipulation instruction 
coding description L-57 
overview L-19 
AO (see analog output) 
application program 

automatic initialization and 

restart S-129 
indexed access S-149 
introduction L-l 
manager C-119 
preparation U-351 
size estimating S-344 
structure L~8 
support S-20 
ASCII terminals 
codes S-110 



conf i 
devi c 
graph 
TERMI 
S-10 
ASMERROR, 

1-230 
assembler 
( see 
( see 
( see 
assi gn 

alter 

sect 

DEFIN 

stor 

U-34 

asynchron 

trol ada 

AT set br 

ranges, 
ATTACH ta 
codi n 
i nter 
overv 
attent i on 
1-108, L 
attent i on 
attent i on 
ATTN key 
ATTNLIST 
$ATTA 
codi n 
overv 
attri bute 
autocall 

opti o 

AUTOCALL 

(WXTRN) 

automati c 

appl i 

S-13 

appl i 

S-12 



guring S-96 
es supported C-6, S 
ics L-26, S-46 
NAL statement exampl 
6 
$EDXASM instruction 



$EDXASM) 

$S1ASM) 

host assembler) 

nate for defective 4 
or, $DASDI utility 
E key in 4978 contro 
e, AD $TERMUT2 comma 
1 

ous communications c 
pter (see ACCA) 
eakpoints and trace 
$DEBUG command U-90 
sk control instructi 
g description L-59 
nals 1-44 
iew L-42, S-34 

handling, terminal 
-47, S-63 

keys, terminal I/O 

list (see ATTNLIST) 
(see attention handl 
task control stateme 
SK L-61 

g description L~61 
iew L-42, S-30 

character, 3101 C- 



-14 
es 



n, $LINK 
statement 
L-323 



U-401 
requi remen 



cation i ni tiali zat i o 

, S-129 

cation restart S-13 

9 



963 
U-78 
1 
nd 

on- 



on 

I/O 

L-47 

i ng) 
nt 
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B before, $FSEDIT line command 

U-226 
backup disk or disk volume on 

tape, ST $TAPEUT1 command U-330 
backup dump restore utility, 

$M0VEV0L U-294 
base records, indexed data set 
definition S-149 
loading S-160 
basic exchange 

diskette data set copy utili- 
ty, $C0PY U-59 
basic supervisor and emulator (see 

supervi sor/ emulator) 
batch job processing (see 

$J0BUTIL) 
BEEP, Multiple Terminal Manager 
CALL 

coding description C-137, 

L-361 
internals M-9 
overview C-117, L-29 
binary synchronous communications 
automatic retry S-17 
BSCAM/BSCAMU module 
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descriptions 1-80 
BSCLINE configuration state- 
ment C-42, S-76 
control flow (BSCAM) 1-147 
device data block (BSCDDB) 

1-133 
features C-35, S-16 
Host Communications Facility 

protocol 1-156 
instruction formats C-38, 

1-144 
multipoint operation C-36, 

S-16 
overview S-16 
point-to-point lines S-16 
Remote Management Utility 

requirements C-208 
sample programs C-59 
special labels for, 
description 1-149 
system internal design 1-133 
test utility, $BSCUT2 C-64 
trace printing routine, 

$BSCUT1 C-62 
trace routine, $BSCTRCE C-61 
blank screen, $B operator command 

S-63, U-12 
BLANK TERMCTRL function L-288 
BLDTXT subroutine, $EDXASM 1-237 
BLINK TERMCTRL function L-288 
BLP (see bypass label processing) 
BOT (begi nni ng-of-tape) L-40 
BOTTOM reposition line pointer, 

$EDIT1/N editor subcommand U-183 
boundary requirement, full-word 
DO L-34 
IF L-34 
PROGRAM L-225 
BP list breakpoints and trace 
ranges, $DEBUG command U-92 
breakpoints and trace setting, AT 

$DEBUG command U-90 
BROWSE display data set, $FSEDIT 

option U-213 
B5C (see binary synchronous 

communi cati ons) 
BSCAM (see binary synchronous com- 
muni cati ons) 
BSCCLOSE BSC statement 1-144, 
1-148 

coding description C-38 
BSCDDB binary synchronous device 
data block 

description of 1-133 
equates 1-291 
BSCEQU L-ll 
BSCIA immediate action routine 

(BSC) 1-148 
BSCIOCB BSC statement C-39, 1-144 
BSCLINE configuration statement 

C-42, S-76 
BSCOPEN BSC statement C-44, 

1-145, 1-148 
BSCREAD BSC statement C-45, 

1-145, 1-148 
BSCWRITE BSC statement C-49, 

1-146, 1-148 
BSF (backward space file) L-75 
BSR (backward space record) L-75 
BTE, buffer table entry A-20 
BU build data member, $DIUTIL 

command U-153 
buffer 

table entry 

definition A-20 



de 

termi n 

manag 

BUFFER dat 

coding 

overvi 

bui Id data 

command 
bui ldi ng a 

U-247 

burst outp 

play sere 

bypass lab 

descri 



scription A-31 

al I/O buffer 

ement 1-109 

a definition statement 

description L-65 
ew L-17 

member, BU $DIUTIL 
U-153 
n indexed data set 



ut with electronic dis- 
ens L-46 

el processing U-311 
ption S-244 
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change a key definition, 
$TERMUT2 command U-342 
copy line, $FSEDIT line 
command U-226 
CA cancel 

assembly, $EDXASM attention 

request U-358 
copy, $C0PYUT1 attention 

request U-64 
list option, $FSEDIT attention 

request U-217 
listing, $EDXLIST attention 
request U-358 
CAD copy all data members, 

$C0PYUT1 command U-64 
CALL 

copy all members, $C0PYUT1 

command U-64 
program control instruction 
coding description L-68 
Indexed Access Method 

syntax 5-146 
Multiple Terminal Manager 

syntax L-359 
overview L-32, S-31 
program L-68 
subroutine L-68 
callable routines L-30 
CALLFORT program control 
i nstructi on 

coding description L-70 
overview L-32 
cancel 

$C operator command U-13 
assembly, CA $EDXASM attention 

request U-358 
copy, CA $C0PYUT1 attention 

request U-64 
dump, CA $DUMP command U-165 
list option, CA $FSEDIT 

attention request U-217 
listing, CA $EDIT/N attention 
request U-172 
CAP copy all programs, SC0PYUT1 

command U-64 
CC copy block, $FSEDIT line 

command U-226 
CCB 

equate table 1-292 

internals 1-105, 1-119 

i nterprocessor communications 

C-30 
use in terminal I/O support 
1-113 
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CCBEQU L-ll 
CD 

clear data set* $DISKUT2 com- 
mand U-144 
copy data set, $C0PY command 

U-61 
copy data set, $TAPEUT1 
command U-313 
CDATA, Multiple Terminal Manager 
CALL 

coding description C-139, 

L-362 
internals M-9 
overview L-29 
CDRRM equates C-292 
CG copy all members (generic) 

$C0PYUT1 command U-64 
CH 

change hardcopy device, 

$BSCUT2 command C-70 
change host library, $UPDATEH 
command U-420 
chain, ECB/QCB/TCB 1-55 
CHAIN supervisor service routine 

1-54 
CHAIND supervisor service routine 

1-54 
CHAINE supervisor service routine 

1-54 
chaining L-27 
CHAINP supervisor service routine 

1-54 
change 

address assignment of termi- 
nal, RA STERMUTl command 
U-336 
base address, QUALIFY $DEBUG 

command U-101 
character string, CHANGE 
$EDIT1/N editor subcommand 
U-184 
character string, change 
$FSEDIT primary command 
U-219 
execution sequence, GOTO $DE- 

BUG command U-94 
graphics or report display 
profile, $DIC0MP- utility 
U-105 
hardcopy device, CH $BSCUT2 

command C-70 
hardcopy device, RH $TERMUT1 

command U-338 
host library, CH $UPDATEH 

command U-420 
key definition in 4978 control 

store, C $TERMUT2 U-342 
name of logical device, RE 

$TERMUT1 command U-337 
output volume, CV $UPDATE 

command U-409 
page formatting parameters of 
a terminal, CT $TERMUT1 
U-335 
partition assignment, $CP 

operator command U-14 
realtime data member name RT 

($PDS) S-258 
tape label support U-322 
volume 

CV $BSCUT1 command C-62 
CV $C0PYUT1 command U-64 
CV $DISKUT1 command U-137 
CV $DISKUT2 command U-143 
CV SUPDATEH command U-418 



character constants L-89 
character image table U-205 
CHGPAN, Multiple Terminal Manager 
CALL 

coding description C-135, 

L-364 
i nternals M-9 
overview C-124, L-29 
CL clear work data set, $FSEDIT 

primary command U-221 
class interrupt vector table 

1-10, 1-277 
class interrupts, intercepting, 

$TRAP utility U-348 
clear 

data set, CD $DISKUT2 command 

U-144 
screen, $B operator command 
U-12 
CLOSE Host Communications Facili- 
ty, TP operand C-90 
CL5RU (close tape data set) L-75 
cluster, indexed data set S-200 
CM copy member 

$C0PYUT1 command U-64 
$DIUTIL command U-155 
CMDEQU L-12 
CMDSETUP 1-13, 1-67 
CNG copy all members 
(non-generi c) , $C0PYUT1 command 
U-64 
CO command, $RJE2780/$RJE3780 

C-76 
COBOL 

execution requirements S-23 
link editing S-71 
overview S-7 
program preparation 
requirements S-23 
use with Multiple Terminal 
Manager C-193 
code translation 

new support tables 1-111 
terminal I/O layer 2 1-109 
code words, task L-8 
COLS display columns, SFSEDIT line 

command U-228 
command area, $EDXASM 1-214 
command descriptions U-235 
COMMAND send to host, 

$RJE2780/$RJE3780 C-75 
command table 1-68, ,1-282, 1-301 
common data area (see $SYSC0M) 
common emulator setup routine 
command table 1-13, 1-282, 

1-301 
operating conventions 1-67 
communication error function 

1-166 
communications utilities 
$BSCTRCE C-61 
$BSCUT1 C-62 
$BSCUT2 C-64 
$HFCUT1 C-107 
$PRT2780 C-72 
$PRT3780 C-72 
$RJE2780 C-73 
SRJE3780 C-73 
$RMU C-282 
communications utilities (session 

manager) S-217, U-42 
communications vector table 1-11, 

1-278, 1-313 
compiler (see $EDXASM) 
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completion codes (see return 
codes) 

$EDXASM U-436 
$IAMUT1 U-437 
$J0BUTIL U-439 
$LINK U-440 
$UPDATE U-443 
compress 

data base, CP $DIUTIL command 

U-154 
library, $C0MPRES utility 
U-57 
compressed byte string S-309 
CONCAT graphics instruction 
coding description L-72 
overvi ew L-26 
concatenating indexed data sets 

S-167 
concurrent access L-27 
concurrent execution L-42 
configuration statements S-75 
configure terminal CT $TERMUT1 

command U-335 
connecting an indexed data set 

S-159 
continuation, source program line, 

$EDXASM U-361 
control, device instruction level 

L-24 
control block (see DSCB) 
control block and parameter 
tables 

BSCEQU 1-133, 1-291, L-ll 
CCBEQU (see also CCB) L-ll 
CMDEQU (see also emulator 

command table) L-12 
DDBEQU 1-92, 1-308, L-12 
DSCBEQU (see also DSCB) L-12 
ERRORDEF L-12 
FCBEQU A-20, L-12 
IAMEQU L-12 
PROGEQU 1-312, L-13 
referencing 1-289 
TCBEQU (see also TCB) L-13 
control block module (ASMOBJ) 

description 1-76 
CONTROL IDCB command L-175 
control keys for text editors 

U-172 
control records, $LINK U-396 
control statements, program 
listing L-28 
task L-42 

terminal I/O forms control 
L-45 
CONTROL tape instruction L-74 
conversi on 

algorithm for graphics 1-201 

alphameric data L-152 

def i ni t i on 

EBFLCVT module description 

1-80 
floating point/binary 1-205 
numeric data L-148 
program modules by $UPDATE/H 

U-418 
terminal I/O binary/EBCDIC 
1-110 
CONVTB data formatting 
i nstruct i on 

coding description L-79 
internals 1-207 
overview L-18 
CONVTD data formatting 
i nstructi on 



coding description L-82 
internals 1-207 
overview L-18 
copy 

block of text, CC $FSEDIT line 

command U-226 
data members, all, CAD 

$C0PYUT1 command U-64 
data set, CD $C0PY command 

U-61 
data sets with allocation, 

$C0PYUT1 utility U-64 
line of text, C $FSEDIT line 

command U-226 
member 

CM $C0PYUT1 command U-64 
CM $DIUTIL command U-155 
members 

all, CALL $C0PYUT1 com- 
mand U-64 
generic, CG $C0PYUT1 

command U-64 
non-generic, CNG $C0PYUT1 
command U-64 
programs, all, CAP $C0PYUT1 

command U-64 
text, $EDIT1/N editor 

subcommand U-186 
volume, CV $C0PY command U-62 
copy code library, instruction 

parsing ($EDXASM) 1-222 
COPY instruction 

coding description L-86 
overview L-33 
Count record C-256 
CP compress data base, $DIUTIL 

command U-154 
CR invoke $DISKUT1, $IAMUT1 

command U-236 
create 

character image tables, $F0NT 

U-205 
source data set, $FSEDIT 

U-214 
supervisor for another 

Series/1 S-132 
unique labels, $SYSNDX 
($EDXASM) 1-242 
create indexed data set S-156 
cross partition instructions I~71 
cross partition services S-286 
CSECT list, supervisor 
Version 1.1 S-347 
Version 2 S-357 
CSECT program module sectioning 
statement 

coding description L-87 
overview L-33 
CT 

change tape drive attributes, 

$TAPEUT1 command U-315 
configure terminal, $TERMUT1 
command U-335 
CV 

change output volume U-409 
$UPDATE command U-409 
$UPDATEH command U-418 
change volume 

$BSCUT1 command C-62 
$C0PYUT1 command U-64 
$DISKUT1 command U-137 
$DISKUT2 command U-143 
copy volume, $C0PY command 
U-59 
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CYCLE 

coding description C-132, 
L-365 

internals M-9 

overview C-116, L-29 
cylinder S-60 
cylinder track sector (CTS) U-135 



D delete line, SFSEDIT line com- 
mand U-228 
D/I (see digital input) 
D/0 (see digital output) 
data 

conversion (see conversion) 
conversion specifications (see 

also conversion) L-146 
definition statements L-17 
files for $S1ASM 1-254 
floating-point arithmetic 

instructions L-20 
formatting functions L-18 
formatting instructions L-18 
integer and logical 
instructions L-19 
length of transmitted, host 

communications 1-159 
management S-45 
management system, Indexed 

Access Method L-27 
manipulation instructions 

L-19 
record contents, text editor 

1-325 
representation L-20 

floating-point L-20 
integer L-19 
terminal input L-45 
terminal output L-45 
transfer initialization, 

terminal I/O support 1-112 
transfer rates, Host 

Communications Facility C-84 
transfer ready, (DTR) BSCOPEN 
1-148 
Data Collection Interactive S-ll 
DATA data definition statement 
coding description L-88 
overview L-17 
data management utilities 
$C0MPRES S-64, U-57 
$C0PY S-64, U-59 
$C0PYUT1 S-64, U-64 
$DA5DI S-64, U-68 
$DISKUT1 S-64, U-135 
$DISKUT2 S-64, U-142 
$DISKUT3 S-315 
$IAMUT1 S-148, U-235 
$INITDSK S-64, U-256 
$M0VEV0L S-65, U-294 
$PDS S-247 
$TAPEUT1 U-311 
session manager S-215, U-38 
data manipulation, vector L-19 
data manipulation instructions 

L-19 
Data record C-257 
data representation, terminal I/O 

L-45 
data set 

allocation/deletion 



$DISKUT1 U-137 
$DISKUT3 S-315 
$J0BUTIL U-273 
$PDS S-248 
session manager U-29 
characteristics, HCF C-83 
format 

$FSEDIT U-210 
$PDS S-249 
$PRT2780 C-72 
$PRT3780 C-72 
naming conventions C-82, S-56 
transfer 

RECEIVE function C-243 
SEND function C-247 
utilities (see data management 
uti li ti es) 
data set naming conventions, Host 

Communications Facility C-82 
data-set-shut-down condition 

S-179 
date/time 

display, $W operator command 

U-25 
set, $T operator command U-19 
DC data definition statement 
coding description L-88 
overview L-17 
DCB EXIO control statement 
coding description L-91 
overview L-24 
DCE directory control entry 

format 1-88 
DCI (Data Collection Interactive) 

S-ll 
DD block delete, $FSEDIT line 

command U-228 
DDB disk data block 
description 1-92 
equate table 1-308 
DDBEQU L-12 
DE delete member 

$DISKUT1 command U-137 
$DIUTIL command U-156 
delete data set, $J0BUTIL 
command U-274 
deadlocks C-238, S-180 
debug 

$EDXASM overlay programs 

1-248 
aids (see also diagnostic 

aids) S-18 
facility, $DEBUG utility U-82 
def i ne 

horizontal tabs, HTAB $IMAGE 

command U-252 
image dimensions, DIMS $IMAGE 

command U-251 
indexed data set, DF $IAMUT1 

command U-237 
null representation, NULL 

$IMAGE command U-253 
vertical tabs, VTAB $IMAGE 
command U-254 
DEFINEQ queue processing 
statement 

coding description L-94 
overview L-37 
definition statements, data L-17 
delete 

data set 

$J0BUTIL command U-274 
DELETE function C-216 
tape data set, TA $TAPEUT1 
command U-333 
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elements, IN $DICOMP command 

U-107 
member 

$PDS S-261 

DE $DISKUT1 command U-137 
DE $DIUTIL command U-156 
text 

$EDIT1(N) editor subcom- 
mand U-188 
line, D $FSEDIT line 
command U-228 
with $PREFIND U-305 
DELETE function C-216, 1-166, 

1-174 
DELETE instruction 

coding description L-329 
overview L-27, S-147 
return codes L-330 
DEQ task control instruction 
coding description L-95 
internals 1-59 
overview L-42, S-33 
supervisor function 1-46 
DEQBSC dequeue BSC DDB routine 

1-149 
DEQT terminal I/O instruction 
coding description L-97 
overview L-44, S-47 
DETACH task control instruction 
coding description L-98 
internals 1-45 
overview L-42, S-30 
detached, task supervisor 

execution state 1-43 
device 

busy (EXOPEN) L-129 

data block description, EXIO 

1-123 
instruction level control 

L-24 
interrupt handling, EXIO 

1-125 
test utility, SIOTEST U-263 
vector table 1-11, 1-278 
DF define indexed file, $IAMUT1 

command U-237 
DI (see digital input) 
di agnosti c 

aids S-265 

summarized S-18 
uti 1 i t i es 

$DEBUG U-82 
$DUMP U-163 
$I0TEST U-263 
$L0G U-292 
$TRAP U-348 
with session manager 
S-217, U-38 
digital input 

$I0TEST command U-266 
digital I/O control block 

1-129 
direct output ,$DIC0MP subcom- 
mand U-112 
direct output to another 

device ($PDS) S-255 
display parameters, $IAMUT1 

command U-239 
external sync, XI $I0TEST 

command U-266 
IODEF statement L-186 
overview S-48 
SBIO instruction L-265 
SENSORIO configuration 
statement S-84 



digital output 

digital I/O control block 

1-129 
DO SIOTEST command U-265 
external sync, XO $I0TEST 

command U-266 
IODEF statement L-186 
overvi ew S-48 
SBIO instruction L-267 
SENSORIO configuration 
statement L-84 
DIMS define image dimensions, 

$IMAGE command U-251 
direct access common I/O module, 

DISKIO, description 1-77 
direct access storage device 

organization S-52 
direct output, DI $DIC0MP 

subcommand U-112 
di rectory 

control entry (DCE) 1-88 
entries S-249 
member entry (DME) 1-89 
disaster recovery from tape, RT 

$TAPEUT1 command U-326 
DISCONN Indexed Access Method 
CALL 

coding description L-332 
overview L-27, S-148 
return codes L-333 
DISCONNECT Multiple Terminal 

Manager utility C-119, C-159 
disconnecting an indexed data set 

S-159 
DISK configuration statement S-78 
di sk/di skette 

capacity S-58 
data block (DDB) 1-92 
fixed-head S-15, S-61 
I/O task 1-95 
IPL S-16, S-61 
primary volume S-60 
resident loading code 1-19 
secondary volume S-60 
symbolic addressing L-10 
uti li ti es 

$C0MPRES S-64, U-57 
$C0PY S-64, U-59 
$C0PYUT1 S-64, U-64 
$DASDI S-64, U-68 
$DISKUT1 S-64, U-135 
SDISKUT2 S-64, U-142 
$DISKUT3 S-315 
$IAMUT1 S-148, U-235 
$INITDSK S-64, U-256 
$M0VEV0L S-65, U-294 
$PDS S-247 
utility function table U-49 
volume S-16, S-52 
disk I/O instructions L-22 
DISKIO direct access common I/O 

module description 1-77 
display (see also list) 

character image tables, DISP 

$F0NT command U-205 
contents of storage or 
registers, LIST $DEBUG com- 
mand U-95 
control member ($PDS) S-250 
control member format ($PDS) 

S-252 
initial data values for image 

S-303 
processor composer, $DIC0MP 
U-105 
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processor interpreter* 

$DIINTR U-150 
processor utility* $DIUTIL 

U-150 
processor utility* general 

description U-105 
profile elements ($PDS) S-252 
protected and null fields of 

an image S-302 
report line items ($PD5) 

S-255 
status of all tasks* WHERE 

$DEBUG command U-102 
storage* $D operator command 

S-63* U-15 
time and data* TD ($PDS) 

S-258 
time and date* $W operator • 

command S-63, U-25 
utility program set ($PDS) 

S-248 
variable* VA($PDS) S-254 
4978 program function keys* 
$PFMAP utility U-301 
DISPLAY TERMCTRL function L-288 
DIVIDE data manipulation 
i nstruct i on 

coding description L-99 
overview L-19 
precision table L-100 
DME di rectory member entry 
format 1-89 

updated by SETEOD S-324 
DO 

digital output (see digital 

output) 
program sequencing 
i nstructi on 

coding description L-101 
overview L-34 
double-precision L-19 

floating-point arithmetic 

L-21 
integer and logical L-19 
DOWN move line poiner* $EDIT1/N 

editor subcommand U-189 
DP 

dump to printer 

$DISKUT2 command U-144 
STAPEUT1 command U-317 
print trace file* $BSCUT1 
command C-62 
DR draw symbol* $DIC0MP 

subcommand U-112 
DR draw symbol ($PDS) S-254 
draw 

line* LI $DIC0MP subcommand 

U-120 
line relative LR ($PDS) S-257 
symbol* DR $DIC0MP subcommand 
U-112 
DS data set identifier* $J0BUTIL 

command U-275 
DSCB data set control block 
statement 

coding description L-105 
equate table* DSCBEQU 1-311 
for tape* internals 1-99 
internals 1-92 
overview L-22 
DSCBEQU L-12 
DSECT (see control block and 

parameter equate tables) L— 1 1 
DSOPEN subroutine 

description S-322 



DSR data set ready in BSCOPEN 

1-148 
DTR data transfer ready in 

BSCOPEN 1-148 
DU 

dump on terminal* $DISKUT2 

command U-144 
dump trace file on terminal* 
$BSCUT1 command C-62 
dump 

restore volume utility 

$M0VEV0L U-294 
storage partition* DUMP 

function C-218 
to printer 

$DUMP utility U-163 
DP $DISKUT2 command U-143 
DP $TAPEUT1 command U-317 
PR SDICOMP command U-108 
to terminal 

$DUMP utility U-163 
DP $TAPEUT1 command U-317 
DU $DISKUT2 command U-143 
PR $DIC0MP command U-108 
trace file on printer* DP 

$BSCUT1 command C-62 
trace file on terminal* DU 
$BSCUT1 command C-62 
DUMP function C-218* 1-166, 1-175 
D4969* tape device handler module 
description 1-82 



E-conversion (Ew.d) L-150 
EBFLCVT, EBDIC to floating-point 
conversion 1-205 

module description 1-80 
EC control echo mode* $IAMUT1 

command U-240 
ECB task control statement 

coding description L-107 
internals 1-55 
overview L-42* S-30 
with SBIOCB 1-128 
EDIT 

begin editing source data, 

$EDIT1/N command U-174 
create or change data set* 

SFSEDIT option U-214 
enter edit mode* $F0NT 

command U-205 
enter edit mode* $IMAGE 
command U-251 
edit data set subroutine examples* 

text editor 1-326 
editor subcommands* $EDIT1/N 

U-182 
EDL (see Event Driven Language) 
compiler ($EDXASM) U-356 
instruction format 1-67 
interpreter, EDXALU* module 

description 1-77 
operation codes 1-67 
EDXALU Event Driven Language 
interpreter description 1-5* 
1-77 
EDXFLOAT floating-point operations 

module description 1-79 
EDXINIT supervisor initialization 
control module 1-15 
description 1-81 
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EDXLIST host listing formatter 

U-383 
EDXSTART supervisor initialization 

task module description 1-81 
EDXSVCX/EDXSVCXU task supervisor 
addr. trans, support desc 1-5, 
1-76 
EDXSYS system data tables, 

description 1-75 
EDXTIMER 7840 timer feature card 

module description 1-80 
EDXTIMR2 4952 timer module 

description 1-80 
EDXTIO terminal I/O 

EDXTIO/EDXTIOU module 

description 1-78 
internals 1-105 
EJECT listing control statement 
coding description L-109 
overview L-28 
eject printer page 

$E operator command U-16 
ELSE program sequencing 
i nstruct i on 

coding description L-110, 

L-178 
overvi ew L-34 
emulator (see 

supervi sor/emulator) 
emulator command table 1-13, 

1-282, 1-301 
emulator functional flow 1-69 
emulator setup routine 1-67 

command table 1-13, 1-282, 
1-301 
EN end program, $IAMUT1 command 

U-235 
END 

$LINK control record U-396 
option selection, $EDXASM 

command U-358 
option selection, $EDXLIST 

command U-371 
option selection, $S1ASM 

U-378 
primary command input, $FSEDIT 

primary command U-221 
task control statement 

coding description L-lll 
overview L-42 
end display, EP $DIC0MP 

subcommand U-118 
end-of-file, indicating with 

SETEOD S-324 
ENDATTN task control instruction 
coding description L-112 
overview L-42, S-30 
ENDDO program sequencing 
i nstruct i on 

coding description L-103, 

L-113 
overview L-34 
ENDIF program sequencing 
i nstruct i on 

coding description L-114, 

L-178 
overview L-34 
ENDPROG task control statement 
coding description L-115 
overview L-42, S-30 
ENDSEQ Indexed Access Method CALL 
coding description L-334 
overview L-27, S-147 
return codes L-335 



ENDSPOOL switch spool to print, 

$RJE2780/$RJE3780 C-75 
ENDTASK task control instruction 
coding description L-116 
overview L-42, S-30 
ENQ task control instruction 
coding description L-117 
internals 1-60 
overview L-42, S-33 
supervisor function 1-45 
ENQT terminal I/O instruction 
S-293 

coding description L-119 
overview L-44, S-47 
enqueue, task supervisor function 

(see ENQ) 
entering and editing source state- 
ments S-66, U-192 
entry points, supervisor 
Version 1.1 S-347 
Version 2 S-357 
ENTRY program module sectioning 
statement 

coding description L-121 
overvi ew L-33 
EOF (end-of-file) L-74 
EOJ end of job, $J0BUTIL command 

U-276 
EOP end of nested procedure, 

$J0BUTIL command U-276 
EOR data manipulation instruction 
coding description L-122 
overview L-19 
EOT (end-of-tape) L-41 
EP end display, $DIC0MP 

subcommand U-118 
EQ (equal) L-34 

EQU data definition instruction 
coding description L-124 
overvi ew L-17 
equate tables 

$EDXASM compiler common area 

1-214 
BSCDDB, BSC line control 

block 1-291 
CCB, terminal control block 

1-292 
DDB, disk/diskette control 

block 1-308 
DDB for sensor I/O 1-309 
DSCB, data set control block 

1-311 
emulator command table 1-282, 

1-301 
Indexed Access Method A-19 
parameter and control block 

L-ll 
program header 1-312 
referencing 1-30 
supervisor 1-279, 1-313 
TCB, task control block 1-314 
ERASE terminal I/O instruction 
coding description L-126 
overview L-44, S-47 
error codes (see return codes) 
error handling 

I/O error logging S-270 
Indexed Access Method error 

exit S-178 
Remote Management Utility 

C-277 
software trace S-265 
task error exit S-33, S-268 
terminal I/O L-44 
ERRORDEF L-12 
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ERRORS list error option 
$EDXASM command U-358 
$EDXLIST command U-370 
estimating storage (see storage 

estimating) 
event control block (see ECB) 
Event Driven Language (see EDL) 
EX exercise tape, $TAPEUT1 com- 
mand U-319 
EXEC function C-220, 1-166, 1-178 
EXEC load and execute program, 

$J0BUTIL command U-277 
execute program 

EXEC function C-220 
PASSTHRU function C-225 
SHUTDOWN function C-251 
utilities (session manager) 
S-216 
executing, task supervisor exe- 
cution state 1-43 
exercise tape, EX $TAPEUT1 

command U-319 
EXFLIH command start 1-125 
EXIO control instruction 

coding description L-128 
EXIODDB device data block 

description 1-123 
internals 1-125 
overview L-24, S-51 
EXIOCLEN, EXIO termination module 

1-126 
EXIODEV configuration statement 

S-82 
EXIOINIT, system initialization 

1-125 
EXOPEN EXIO control instruction 
coding description L-129 
internals 1-125 
interrupt codes L-132 
overview L-24 
return codes L-131 
external sync DI/DO, XI/XO $I0TEST 

command U-266 
EXTRACT, Indexed Access Method 
CALL 

coding description L-336 
overview L-26, S-148 
return codes L-337 
EXTRN program module sectioning 
statement 

coding description L-134 
overview L-33 



F-conversion (Fw.d) L-149 
FADD data manipulation 
i nstructi on 

coding description L-135 
overview L-19 
return codes L-136 
FAN, Multiple Terminal Manager 
CALL 

coding description C-139, 

L-366 
overview L-31 
FCA file control area, Multiple 

Terminal Manager C-143 
FCB file control block for Indexed 
Access Method 

definition A-9, A-20 
description A-ll, A-21, S-194 



location A-20 

map provided by FCBEQU S-155 
FCBEQU Indexed Access Method copy 

code module L-12, S-155 
FDIVD data manipulation 
i nstructi on 

coding description L-137 
overview L-19 
return codes L-138 
FETCH Host Communications 

Facility, TP operand C-92 
fetch record ($PDS) S-261 
fetch status, FE $HCFUT1 command 

C-110 
file L-75 

backward space file (BSF) 

L-75 
control area (see FCA) 
control block (see FCB) 
definition L-40 
forward space file (FSF) L-75 
manager, Multiple Terminal 

Manager M-8 
tape control commands L-75 
FILEIO, Multiple Terminal Manager 
CALL 

coding description C-141, 

L-367 
internals M-9 
overview C-118, L-29 
FIND 

editor commands 

character string, $EDIT1/N 

subcommand U-191 
character string, $FSEDIT 
primary command U-222 
program sequencing 
i nstructi on 

coding description L-139 
overview L-34 
FINDNOT program sequencing 
i nstructi on 

coding description L-141 
overview L-34 
FIRSTQ queue processing 
i nstructi on 

coding description L-143 
overview L-37, S-32 
fixed-head devices S-61 
fixed storage area, contents 1-9 
floating-point 

arithmetic instruction 
equates 1-283, 1-303 
arithmetic instructions L-20 
binary conversions 1-205 
command entries module, 

NOFLOAT, description 1-79 
operations module, EDXFLOAT, 

description 1-79 
return codes L-21 
FMULT data manipulation 
i nstructi on 

coding description L-144 
overview L-19 
return codes L-145 
format 

illustrated L-5 
instruction (general) L-3 
FORMAT data formatting statement 
'A T conversion L-153 
T E f conversion L-150 
'F f conversion L-149 
'H' conversion L-152 
'I T conversion L-148 
coding description L-146 
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conversion of alphameric data 

L-153 
conversion of numeric data 

L-148 
data conversion specifica- 
tions L-146 
module names L-18 
multiple field format L-155 
overview L-18 
repetitive specification 

L-155 
using multipliers L-155 
X-type format L-154 
formatted screen images S-300, 

U-250 
formatting i nstructi ons> data 

L-18 
forms control 

burst output with electronic 

display screens L-46 
forms interpretation L-46 
output line buffering L-46 
parameters, terminal I/O L-44 
terminal I/O L-45 
FORTRAN IV 

execution requirements S-24 
link editing S-71 
overview S-6 
program preparation 
requirements S-24 
use with Multiple Terminal 
Manager C-197 
FPCONV data manipulation 
i nstructi on 

coding description L-157 
overview L-19 
free pool in Indexed Access 

Method L-27 
free space 

definition S-148 
estimating S-168 
in Indexed Access Method L-27 
free space entry 1-90 
FREEMAIN storage allocation 

function 1-25 
FSE free space entry 1-90 
FSR (forward space record) L-75 
FSUB data manipulation 
i nstructi on 

coding description L-159 
index registers L-160 
overview L-19 
return codes L-160 
FTAB, Multiple Terminal Manager 
CALL 

coding description C-138, 

L-372 
overview C-124, L-31 
return codes L-373 
full-screen static configuration 

S-293 
full-screen text editor host and 

native, $FSEDIT U-209 
full-word boundary requirement 
DO L-34 
IF L-34 
PROGRAM L-225 
function process overlays 1-162 
function process subroutines 
1-162, 1-170 

new subroutines 1-187 



function table 1-164, 1-167 



GE (greater than or equal) L-34 
general instruction format L-3 
generating the supervisor S-115 
GENxxxx macro 1-120 
GET Indexed Access Method CALL 
coding description L-338 
overview L-27, S-147 
return codes L-340 
GETEDIT data formatting 
i nstructi on 

coding description L-162 
overview L-18 
GETMAIN storage allocation 

instruction 1-25 
GETPAR3 1-69 

GETSEQ Indexed Access Method CALL 
coding description L-342 
overview L-27, S-147 
return codes L-343 
GETSTORE TERMCTRL function L-288 
GETTIME timing instruction 

coding description L-167 
overview L-50, S-32 
GETVAL subroutine, $EDXASM 1-234 
GETVALUE terminal I/O instruction 
coding description L-169 
overview L-44, S-47 
GIN graphics instruction 

coding description L-172 
overview L-26 
global area, $EDXASM 1-224 
GLOBAL ATTNLIST L-61 
GO activate stopped task, $DEBUG 

command U-93 
GOTO 

change execution sequence, 

$DEBUG command U-94 
coding sequencing instruction 
coding description L-173 
overview L-34 
graphi cs 

conversion algorithm 1-201 
functions overview L-26 
hardware considerations C-6, 

C-300 
instructions L-26 
CONCAT L-72 
GIN L-172 
PLOTGIN L-210 
SCREEN L-270 
XYPLOT L-324 
YTPLOT L-325 
requirements L-26 
terminals S-46 
uti 1 i t i es 

$DIC0MP U-105 
$DIINTR U-127 
$DIUTIL U-150 
session manager S-216, 

U-40 
summarized S-64, U~5 
GT (greater than) L-34 
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H-conversion L-152 

hardcopy function for terminals 

PF6 1-114, U-7 
hardware levels S-30 
HCF (see Host Communications 

Facility) 
HDR1 tape label S-239 
header labels, tape Sr235 
header record 

Remote Management Utility 
C-209 
header record format, text editor 

1-323 
HELP list debug commands, $DEBUG 

command U-94 
highei — level index block S-197 
horizontal tabs, defining with 

$IMAGE U-252 
host assembler U-382 
Host Communications Facility 
C-81, 1-153 

data set naming conventions 

C-82 
Program Preparation 

System/370 1-153, U-382 
TPCOM module description 1-81 
utility program, $HCUT1 C-107 
host program, Remote Management 

Utility C-205 
host system considerations C-83 
HOSTCOMM configuration statement 

S-83 
HX display hex words, SDICOMP 
subcommand U-118 



I/O 



i ni tiali 
mand U- 
insert li 
command 
I-conversi on 
I/O device in 
error log 
data set 

$DISKUT2 
device ta 
i nvoki ng 
log contr 
log data 
LOG macro 

equat 

synta 
pri nt i ng 
recordi ng 
tape log 
uti li ty, 
f uncti ons 
di sk/di sk 

summa 
EXIO cont 

summa 
HOSTCOMM 

statemen 
overvi ew 
sensor I 

summa 



I/O 



ation, $INITDSK com- 

257 

ne, $FSEDIT line 

U-229 
(Iw) L-148 
struction level L-24 
ging 
list utility, 

U-142 
ble S-276 

S-273, U-292 
ol record S-276 
set U-292 

es S-278 

x S-272 

the errors S-275 

the errors S-270 
entries S-245 
$L0G U-292 

ette 1-95, L-22 
rized S-46 
rol 1-123, L-24 
rized S-51 
conf i gurati on 
t L-39, S-83 

S-45 
-127 
rized S-51 



tape L-40, L-75 
terminal S-46 
timers L-50, S-32 
I/O instructions 
disk L-22 
diskette L-22 
tape L-40 
IACB indexed access control block 
built by connecting data set 

S-159 
def i ni ti on A-20 
description A-35 
location A-14 
IAM Indexed Access Method link 

module S-155 
IAMEQU Indexed Access Method copy 

code module L-12, S-155 
IDCB EXIO control statement 
coding description L-175 
overview L-24 
IDCHECK function C-223, 1-166, 

1-177 
identification, verify 
host system C-223 
IDCHECK function C-223 
remote system C-223 
IF program sequence instruction 
coding description L-177 
overvi ew L-34 
II insert block, SFSEDIT line 

command U-231 
IIB interrupt information byte, 

Multiple Terminal Manager C-128 
IM insert member 

$DIC0MP subcommand U-118 
$PDS S-257 
image dimensions, define, DIMS 

$IMAGE command U-251 
image store U-205 
immediate action routines 1-46 
binary synchronous access 

method 1-149 
specifying maximum number 

S-88 
task supervisor 1-48 
immediate data L-4 
IN 

initialize data base, $DIUTIL 

command U-157 
insert or delete elements, 
$DIC0MP command U-107 
INCLUDE $LINK control record 

U-398 
INCLUDE statement requirement 

(EXTRN) L-134 
index block A-20, A-33 

overview S-151 
index entry A-12 
index record contents, text 

editor 1-323 
i ndex regi sters 

floating-point operations 

using L-21 
integer operations using L-19 
software introduction L-6 
indexed access control block (see 

IACB/ICB) 
Indexed Access Method L-26, L-327 
$IAM load module S-155 
$IAMUT1 utility U-235 
overview S-148 
parameters S-187 
used in data set 
reorganization S-166 
application program 
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preparati on 

$J0BUTIL procedure S-158 
link edit control S-158 

CALL instruction syntax L-68, 
S-146 

CALL processing A-4 

coding instructions L-327 

control block linkages A-15 

control flow A-3 

data block location 
calculation A-9 

devices supported by S-146 

diagnostic aids A-10 

I/O requests 

DELETE L-329, S-147 
DISCONN L-332, S-148 
ENDSEQ L-334, S-147 
EXTRACT L-336, S-148 
GET L-338, S-147 
GETSEQ L-341, S-147 
LOAD L-344, S-147 
PROCESS L-347, S-147 
PUT L-350, S-147 
PUTDE L-352, S-147 
PUTUP L-354, S-147 
RELEASE L-356, S-147 

IAM link module S-155 

operation S-148 

overview L-27, S-145 

performance S-205 

program preparation procedure 
S-155 

record processing A-6 

request processing A-5 

request verification A-10 

storage requirements S-204 
indexed applications, planning and 
desi gni ng 

connecting and disconnecting 
data sets S-159 

handling errors 

data-set-shut-down condi- 
tion S-179 
deadlocks S-180 
error exit facilities 

S-178 
long-lock-time condition 

S-180 
system function return 
codes S-179 

loading base records S-160 

processing indexed data sets 
delete S-165 
direct read S-161 
direct update S-162 
extract S-165 
insert S-146 
sequential read S-162 
sequential update S-146 

resource contention S-181 
indexed data set 

base records S-149 

building U-247 

concatenating with ALTIAM 
subroutine S-167 

control block arrangement A-8 

creation with $IAMUT1 utility 
U-236 

formatting S-187 
procedure S-156 

design A-7 

determining size and format 
U-247 

format 

blocks S-192 



cluster S-200 

data block S-194 

file control block (FCB) 

S-151, S-194 
free blocks S-200 
free pool S-203 
free records S-200 
free space S-184 
highei — level index block 

S-197 
index S-195 
index block S-194 
introduction S-151 
last cluster S-203 
primary-level index block 

(PIXB) S-152, S-195 
relative block number 

(RBN) S-152 
reserve blocks S-201 
reserve index entries 

S-202 
second-level index block 

(SIXB) S-152, S-197 
sequential chaining S-203 
loading and inserting records 

S-150 
mai ntenance 

backup and recovery S-165 
deleting S-167 
dumping S-167 
recovery without backup 

S-166 
reorganisation S-166 
overview 5-148 
physical arrangement A~8 
preparing the data 

defining the key S-166 
estimating free space 

S-168 
selecting the block size 
S-167 
putting records into S-149 
RBN, relative block number 

A-7, A-12 
record locking S-146, S-160 
verification A- 11 
indexed data set, defining U-237 
indexed file (see Indexed Access 

Method) 
indexing, address feature L-6 
initial program load (see also 

IPL) 1-15 
i ni t i ali zat i on 

automatic application S-129 
disk (4962) U-68, U-73 
disk (4963) U-68, U-78 
diskette (4964,4966) U-68 
libraries, $INITDSK utility 

U-256 
modules 1-16 
nucleus 1-15 
Remote Management Utility, 

internals 1-166, 1-171 
tape, $TAPEUT1 utility U-322 
task 1-15 
initialize data base, IN $DIUTIL 

command U-157 
initializing secondary volumes 

S-132 
INITMODS, initialization modules 

1-16 
INITTASK, initialization task 

1-15 
input, terminal I/O L-46 
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IM $DICOMP subcommand 
address register (see 
and statements - over- 



Input Buffer* Multiple Terminal 
Manager C-116 

contents during 4978/4979/3101 

buffer operation C-129 
description C-116 
input data parsing* description 

of 1-218 
Input Error function 1-166* 1-182 
input/output (see I/O) 
input output control block (see 

IOCB) 
INPUT switch to input mode, 

$EDIT1/N editor subcommand U-192 
insert 

block* II $FSEDIT line com- 
mand U-231 
elements* IN $DIC0MP command 

U-107 
line, I $FSEDIT line command 

U-229 
member* 
U-118 
nstructi on 
IAR) 

nstructi on 
view L-15 

nstruction definition and 
checking ($EDXASM) 1-241 
nstruction format* Event Driven 
Language 1-67* L-3 
nstruction format* general L-3 
nstruction operands L-3 
nteger and logical instructions 
L-19 

nteractive program debugging 
S-67* U-82 

nterface routines* supervisor 
1-61 

nterprocessor communications 
C-29 

nterprogram dialogue S-282 
nterrupt, from EXIO device 1-125 
nterrupt information byte (see 
IIB) 

nterrupt line S-313 
nterrupt servicing 1-46* 
NTIME timing instruction 

coding description L-181 
overview L-50* S-32 
ntroduction to EDL L-l 
nvoking the loader 1-23 
nvoking the session manager 
nvoking the utilities U-47 
OCB terminal I/O instruction 
coding description L-183 
constructing, for formatted 

screen C$IMDEFN) S-301 
overview L-44, S-47 
structure S-296 
terminal I/O instruction 

L-183 
TERMINAL statement converted 
to S-96 
IODEF sensor based I/O statement 
U-364 

coding description L-185 
overview L-39, S-51 
SPECPI - process interrupt 
user routine L-189 
IOLOADER, function of 1-127 
IOLOADER/IOLOADRU sensor based 

init. module desc. 1-78 
IOR data manipulation instruction 
coding description L-191 
overview L-19 



1-113 



U-27 



I/O 



IPL 

automatic application initial- 
ization and restart S-129 
messages U-421 

date and time U-425 
IPL operation U-421 
load utility location 

U-424 
sensor I/O status check 

U-424 
storage map generation 

U-423 
tape initialization U-423 
volume initialization 
U-422 
procedure U-421 
IPLSCRN, Multiple Terminal 
Manager C-125 



job U-278 

job control sta 

JOB job identif 

command U-278 
job stream proc 

S-69, U-271 
job stream proc 

(session manag 
JP 

jump ($PDS) 

to address, 

subcommand 

JR jump referen 

subcommand U- 
JUMP* $J0BUTIL 
jump reference* 

subcommand U- 
jump to address 

subcommand U- 



tement U-278 
ier* SJOBUTIL 

essor* $J0BUTIL 

essor utilities 
er) S-216 

S-255 

$DIC0MP 
U-118 
ce* $DIC0MP 
118 
command U-279 

JR $DIC0MP 
118 

, JP $DIC0MP 
118 



key (see program function (PF) 

keys 
keyboard and ATTNLIST tasks, tei — 

minal I/O L-47 
keyboard define utility for 4978* 

$TERMUT2 U-339 
KEYS list program function keys 

$IMAGE command U-253 
keyword operand L-5 



LA 

display directory, SDIUTIL 

command U-158 
list all members, $DISKUT1 

command U-135, U-136 
list terminal assignment, 

$TERMUT1 command U-336 
label L-3 

field L-3 

syntax description L-4 
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LABEL end jump, $JOBUTIL command 

U-280 
labels* tape (see tape) 
LABELS subroutine, $EDXASM 1-238 
LACTS list all members CTS mode, 

$DISKUT1 command U-135 
language control data set, 

$EDXASM 1-221, U-357 
LASTQ queue processing 
instruct i on 

coding description L-191 
overview L-37, S-32 
layers, terminal I/O 1-108 
LB display characters 

.$DIC0MP display character sub- 
command U-119 
$PDS S-252 
LC load control store, $TERMUT2 

command U-342 
LD 

list all hardware devices, 

$I0TEST command U-269 
list data members, $DISKUT1 
command U-138 
LDCTS list data members CTS mode, 

$DISKUT1 command U-135 
LE (less than or equal) L-34 
level status block (see LSB) 
LEW0RK1 work data set for $LINK 

U-400 
LEW0RK2 work data set for $LINK 

U-400 
LH display member header, $DIUTIL 

command U-159 
LI 

draw line $DIC0MP subcommand 

U-120 
draw line $PDS S-253 
load image store, $TERMUT2 
command U-342 
li brary 

definition S-52 
directory, disk or diskette 

1-87 
origin S-60 
li ne 

commands, $FSEDIT U-229 
continuation, source 

statement L-4 
editing, $EDIT1/N U-203 
pointer reposition (see move 

line pointer) 
source line continuation 
U-361 
LINK, Multiple Terminal Manager 
CALL 

coding description C-131, 

L-374 
internals M-9 
overview C-115, L-29 
link edit process, $LINK U-394 
autocall option U-393 
building an EDX supervisor 

U-394 
combining program modules 

U-392 
control records U-396 
elimination of duplication 

control sections U-393 
formatting modules for 

$UPDATE U-392 
input to $LINK U-396 
multiple control sections 

U-392 
object module record format 



U-407 
output from $LINK U-403 
storage map U-393 
link edit program object modules 

U-390 
link module, Indexed Access 

Method S-155 
linkage editor S-71, U-353 
LINKON, Multiple Terminal Manager 
CALL 

coding description C-132, 

L-376 
internals M-9 
overview C-115, L-29 
list 

active programs, $A operator 

command U-ll 
breakpoints and trace ranges, 

BP $DEBUG command U-92 
characters, LB $DIC0MP 

subcommand U-119 
data members, LD $DISKUT1 

command U-138 
data members, LDCTS $DISKUT1 

command U-135 
data set 

BROWSE $FSEDIT option 

U-213 
LP $DISKUT2 command U-143 
LU $DISKUT2 command U-146 
status, ST $DIUTIL 
command U-162 
date/time, $W operator 

command U~25 
date/time, TD $DIC0MP 

subcommand U-124 
devices, LD $I0TEST command 

U-269 
end, EP $DIC0MP subcommand 

U-117 
error specification, ERRORS 

$EDXASM command U-358 
hardware configuration, LD 

$I0TEST command U-264 
insert mask, MASK $FSEDIT line 

command U-232 
member, LM $DISKUT1 command 

U-138 
member, PR $DIC0MP command 

U-108 
member header, LH $DIUTIL com- 
mand U-159 
members, all 

LA $DISKUT1 command U-135 
LA $DIUTIL command U-158 
LACTS $DISKUT1 command 
U-135 
processor program, $EDXLIST 

U-370 
program function key codes, 

$PFMAP utility U-301 
program function keys, KEYS 

$IMAGE command U-253 
program members, LP $DISKUT1 

command U-139 
program members, LPCTS 

$DISKUT1 command U-135 
status of all tasks, WHERE 

$DEBUG command U-102 
storage, $D operator command 

U-15 
termi nal 
names/types/addresses, LA 
$TERMUT1 command U-335 
variables, VA $DIC0MP 
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subcommand U-125 
volume information* VI $IOTEST 
command U-270 
LIST commands 
data set 

LIST $EDIT1/N command 

U-193 
LIST $FSEDIT option U-217 
display lines of text, 
$EDIT1/N editor subcommand 
U-193 
display storage or registers, 

$DEBUG command U-95 
lines of text, LIST $EDIT1/N 

editor command U-176 
list device option, SEDXASM 

command U-358 
list device option, $EDXLIST 

command U-370 
obtain full listing, LIST 

$EDXASM command U-358 
print data set, $EDIT1/N 

command U-176 
print data set, $FSEDIT 

option U-217 
registers, LIST $DEBUG 

command U-95 
storage, LIST $DEBUG command 
U-95 
listing control functions U-29 
listing control instructions 
EJECT L-109 
overview L-28 
PRINT L-216 
SPACE L-275 
TITLE L-308 
LISTP list to $SYSPRTR, $DISKUT1 • 

command U-135 
LISTT list to terminal, $DISKUT1 

command U-135 
LL list log data set, SDISKUT2 

command U-145 
LM list member, $DISKUT1 command 

U-138 
LO load indexed file, SIAMUT1 

command U-241 
LOAD 

Indexed Access Method CALL 

coding description L-344 
connect file S-159 
overview L-27, S-146 
return codes L-346 
task control instruction 

coding description L-194 
internals 1-24 
overview L-42 
return codes L-199 
used with automatic 

initialization S-129 
used with overlays S-40 
load mode S-149 
load point defined L-40 
load program 

$L operator command 1-23, 

U-17 
automatic initialization 

S-129 
EXEC SJOBUTIL command U-277 
loading overlays 1-22 
loading programs 1-19 
locate data sets and overlay 

programs, $PREFIND U-302 
LOCATE locate requested line 
number $FSEDIT primary comman 
U-223 



location dictionary 1-250 
lock 

locks, block and record A-16 
locks, f i le A-17 
record S-146 
LOCK TERMCTRL function L-288 
LOG 

I/O error logging macro S-271 
job processor commands, 
$J0BUTIL command U-281 
log data set for I/O errors U-292 
logical end-of-f i le on disk S-324 
logical screens S-293 
logon menu for session manager 

S-212, U-27 
long-lock-time condition S-180 
low storage 

during IPL 1-16 
during program load 1-20 
LP 

list data set on printer, 

$DISKUT2 command U-144 
list program members, $DISKUT1 
command U-139 
LPCTS list program members CTS 
mode, $DISKUT1 command U-135 
LR draw line relative 

$DIC0MP subcommand U-121 
$PDS S-257 
LS 

list space, $DISKUT1 command 

U-140 
list supervisor configuration, 
$I0TEST command U-270 
LSB level status block 1-52, 

U-427 
LT (less than) L-34 
LU list data set on console, 

$DISKUT2 command U-146 
LV list through volumes, $DISKUT1 
U-141 



M move line, $FSEDIT line command 

U-233 
macro assembler 

internal overview $S1ASM 

1-253 
overview S-9 
macro library S-6 
macro library/host S-5 
magazine diskette (see 4966 

diskette magazine unit) 
magnetic tape (see tape) 
MASK display insert mask, $FSEDIT 

line command U-232 
master control block (see MCB) 
Mathematical and Functional Sub- 
routine Library S-6 
MCB master control block 
$PDS S-260 
definition A-20 
description A-28 
MD move data base, $DIUTIL 

command U-160 
member area S-250 
member control block (MCB) S-260 
MENU 

Multiple Terminal Manager 
CALL 

coding description C-137, 
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L-377 
internals M-9 
overview C-116, L-29 
return to primary option, 
$FSEDIT U-223 
menu-driven U-2 
menus 

(see option selection menu) 
(see parameter selection 

menu) 
(see primary menu) 
(see primary option menu) 
(see secondary option menu) 
(see session manager, menus) 
(see transaction selection 
menu) 
MENUSCRN, Multiple Terminal Manag- 
er C-126 
MERGE merge data, $FSEDIT option 

U-217 
message, PRINTEXT instruction 

L-217 
message sending utility, $TERMUT3 

U-344 
messages U-421 
error U-427 

$DUMP U-431 
$L0G U-432 
$RMU U-433 
STRAP U-435 
program check U-427 
system program check 
U-429 
IPL (see IPL messages) 
Multiple Terminal Manager 

C-178 
Remote Management Utility 
C-279 
minimum execution system config- 
uration S-22 
minimum program preparation 

requirements S-22 
mi rror image 

description C-7, S-109 
in TERMINAL configuration 
statement S-101 
mixed precision combinations L-20 
MM move block, $FSEDIT line 
- command U-233 
modified data S-307 
modify character image tables 

U-339 
modify character string, CHANGE 
$EDIT1/N editor subcommand 

U-184 
$FSEDIT primary command U-219 
modify default storage allocation, 

$DISKUT2 U-1^9 
modifying an existing data set, 

SFSEDIT U-215 
modifying TERMINAL statement for 

new I/O terminal 1-119 
module descriptions 
$S1ASM 1-269 
supervisor 1-75 
module names and entry points, 
supervi sor 

Version 1.1 S-347 
Version 2 S-357 
move 

block, MM $FSEDIT line com- 
mand U-233 
line pointer 

BOTTOM $EDIT1/N editor 
subcommand U-183 



DOWN $EDIT1/N editor 

subcommand U-189 
TOP $EDIT1/N editor 

subcommand U-200 
UP $EDIT1/N editor 
subcommand U-201 
tape U-324 
text 

$EDIT1/N editor subcom- 
mand U-195 
SFSEDIT line command 
U-233 
volumes on disk or diskette, 
$M0VEV0L utility U-294 
MOVE data manipulation 
i nstructi on 

coding description L-201 
overview L-19 
MOVEA data manipulation 
instruction 

coding description L-204 
overview L-19 
MOVEBYTE subroutine, $EDXASM 

1-236 
MP 

move beam, $DIC0MP subcommand 

U-121 
move position ($PDS) S-253 
MT move tape, $TAPEUT1 command 

U-324 
MTMSTORE file, Multiple Terminal 

Manager C-120, C-171, M-12' 
MTM5TR, Multiple Terminal Manager 

C-169, C-170, M-12 
multiple field format L-155 
multiple program execution 1-36 
multiple program structure S-26 
multiple-task programs 1-33 
Multiple Terminal Manager 

accessing the terminal envi- 
ronment block C-139, M-22 
application program C-116 
application program languages 

L-30 
application program manager 

C-119, M-4 
automatic OPEN/CLOSE C-140, 

M-8 
CALL 

ACTION C-130, L-360 
BEEP C-137, L-361 
CDATA C-139, L-362 
CHGPAN C-135, L-364 
CYCLE C-132, L-365 
FAN C-139, L-366 
FILEIO C-141, L-367 
FTAB C-138, L-372 
LINK C-131, L-374 
LINKON C-132, L-376 
MENU C-137, L-377 
SETCUR C-137, L-378 
SETPAN C-134, L-379 
WRITE C-133, L-381 
coding instructions L-359 
components C-123, M-4 
considerations for 3101 

terminal C-122 
data files C-120 

MTMSTORE file C-120, 

C-171, M-12 
PRGRMS volume C-120, 

C-173 
SCRNS volume C-120, C-173 
TERMINAL volume C-120, 
C-171 
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direct file request types 

C-144, L-370 
disk file support C-140 
distribution and installation 

C-161 
dynamic screen modification 

and creation C-136 
file control area C-142 
file I/O considerations (Event 

Driven Executive) C-146 
file management C-118, M-8 
FILEIO, disk file support 

C-140 
FILEIO Indexed Access Method 

considerations C-148 
fixed screen formats C-125 
functions (callable routines) 

C-117, C-124 
indexed file request types 

C-144, L-369 
indexed file support C-140, 

L-367 
initialization programs 
C-119, C-158, M-4, M-6 
Input Buffer C-116, C-127 
Input Buffer Address C-116 
Input Buffer during 
4978/4979/3101 buffer oper- 
ation C-127 
interrupt information byte 

C-128 
messages C-178 
module list M-4 
operation C-115 
Output Buffer C-116 
Output Buffer Address C-127 
Output Buffer during 
4978/4979/3101 buffer oper- 
ation C-128 
overview L-29, S-10 
program management C-115, M-4 
program preparation 
COBOL C-166 
Event Driven Language 

C-164 
FORTRAN C-165 
PL/I C-167 
programming considerations 
COBOL C-153 
Event Driven Language 

C-151 
FORTRAN C-152 
PL/I C-155 
return codes (FILEIO) C-145, 

L-371 
screen definition C-121 
screen formats C-125 
IPLSCRN C-125 
MENUSCRN C-126 
SCRNSREP C-126 
SIGNONSC C-126 
screen panel manager M-7 
SIGNON/SIGNOFF C-156 

SIGNONFL C-174 
storage requirements C-168 
swap out data set C-116 
system generation 
considerations C-169 
data set requirements 

C-171, C-175 
volume requirements C-169 
terminal environment block 

(TEB) C-128, M-13 
TERMINAL file C-124, C-172 
terminal manager C-121 



terminal/screen management 

C-117 
terminal server C-119, M-7 
terminal support C-114, C-126 
transaction oriented 
applications C-121 
user application programs 

C-124 
utilities C-159 

DISCONNECT turn off 
specified terminals 
C-159 
programs report C-159 
RECONNECT turn on 
specified terminals 
C-159 
screens report C-160 
terminal activity report 
C-159 
work areas, control blocks and 
tables M-ll 

buffer areas M-15, M-29 
common area M-ll, M-25 
file table M-15, M-27 
MTMSTORE data set M-12 
program table M-14, M-21 
screen table M-14, M-21 
terminal environment block 

(TEB) M-13, M-22 
terminal table M-13, M-21 
MULTIPLY data manipulation 
i nstructi on 

coding description L-205 
overview L-19 
precision table L-206 
multi programmi ng 

automatic application initial- 
isation S-129 
design feature S-13 
multitasking 1-42 



NE (not equal) L-34 
newline subroutine, t 

1-112 
NEXTQ queue processin 
i nstructi on 

coding descriptio 

overview L-37, S 

NOFLOAT floating-poin 

entries module descr 

NOLIST no list option 

command U-358 
NOMSG message suppres 
$J0BUTIL command U- 
non-compressed byte s 
non-labeled tapes 

description S-24 

layout S-242 

processing S-243 

NOTE disk/tape I/O in 

coding descriptio 

overview L-22 

notify of an event (s 

NQ reset prompt mode, 

command U-64 

nucleus i ni t iali zati o 

null character U-253 

NULL define null repr 

$IMAGE command U-25 



erminal I/O 



n L-207 

-32 

t command 

iption 1-79 

, SEDXASM 

si on, 

282 

tring S-309 



structi on 
n L-209 

ee POST) 
$C0PYUT1 



n 



1-15 



esentation 
3 
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null representation, defining 

U-253 
number representation conversion 

(see conversion) 



object data set for $EDXASM U-357 
object module record format, 

$LINK U-407 
object text elements, format of, 

$EDXASM 1-215 
OFF (set tape offline) L-75 
OFF remove breakpoints and trace 

ranges, $DEBUG command U-97 
OLE operand list element, $EDXASM 
format of 1-216 
in instruction parsing 

($EDXASM) 1-220 
used in $IDEF 1-241 
online debug aids S-67 
op (operation field) L-3 
OPCHECK subroutine, $EDXASM 1-232 
opcode table, instruction parsing 

($EDXASM) 1-220, 1-223 
open a data set 

disk or diskette 1-90 
tape 1-99 
open EXIO device, EXOPEN 1-125 
open member ($PDS) S-261 
OPENIN Host Communications 

Facility, TP operand C-93 
OPEHOUT Host Communications 
Facility, TP operand C-94 
operands 

defined L-3 
keyword L-5 

parameter naming (Px) L-8 
operating conventions, supervisor 

program 1-67 
operating environment S-22 
operation code, instruction 

parsing ($EDXASM) 1-220 
operation codes, Event Driven 

Language 1-68 
operations using index registers 

L-20 
operator commands S-63, U-9 
operator signals, terminal I/O 

L-49 
option selection menu U-33 
optional features support L-15 
OTE define object text element 

$EDXASM instruction 1-227 
OUTPUT $LINK control record U-399 
Output Buffer, Multiple Terminal 
Manager C-116, C-128 

contents during 4978/4979/3101 

buffer operation C-129 
definition M-29 
overflow L-20 
overlay function processor table 

1-167, 1-220 
overlay program S-40 

instructions, $EDXASM 1-259 
loading 1-22 
locating, SPREFIND U-302 
subroutines, $EDXASM 1-231 
user 1-38 
overlay program execution 1-38 
overlay selection, instruction 
parsing ($EDXASM) 1-223 



overlay table 1-167, 1-220 
overvi ew 

data definition statements 

L-17 
data formatting instructions 
L-18 

data format module names 
L-18 
data manipulation 
instructions L-19 

data representation L-19 
mi xed-preci si on 

operations L-20 
operations using index 

regi sters L-20 
overflow L-20 
vector L-19 
disk I/O instructions L-22 
EXIO control instructions 

L-24 
floating-point arithmetic 

L-20 
floating-point arithmetic 
instructions L-20 

data representation L-21 
operations using index 

registers L-21 
return codes L-21 
graphics instructions L-26 
Indexed Access Method 

instructions L-27 
instructions and statements 

L-15 
integer and logical 
instructions L-19 
listing control statements 

L-28 
Multiple Terminal Manager 

instructions L-29 
program control statements 

L-32 
program module sectioning 

statements L-33 
program sequencing 

instructions L-34 
queue processing L-37 
sensoi — based I/O statements 

L-39 
single-precision L-19 
system configuration 

statements L-39 
tape I/O instructions L-40 
task control instructions 

L-42 
terminal I/O instructions 

L-44 
timing instructions L-50 



P/I (see process interrupt) 
PA patch, $DISKUT2 command U-147 
page eject S-63, U-16 
parameter equate tables L-ll 
parameter naming operands in the 

instruction format L-8 
parameter passing, Remote 

Management Utility C-212 
parameter selection menu U-33 
parameter tables, control block 

and L-ll 
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PARM program parameter passing, 

$J0BUTIL command U-283 
parsing, input data ($EDXASM) 

1-218 
partition assignment changing, $CP 

operator command U-14 
partitioned data sets S-247 
partitions S-42 
PASSTHRU function 

conducting a session C-227 
establishing a session C-225 
internals 1-166, 1-179 
overview C-225 
programming considerations 

C-237 
sample program C-265 
types of records C-232 
virtual terminals C-239 
Passthru record C-209 
patch 

disk/diskette, PA $DISKUT2 

command U-147 
Remote Management Utility 

defaults C-283 
storage, $P operator command 

S-63, U-18 
storage or registers, PATCH 
$DEBUG command U-98 
PATCH modify storage or registers, 

$DEBUG, command U-98 
PAUSE operator intervention, 

$J0BUTIL command U-284 
PC plot curve 

$DIC0MP subcommand U-119 
from plot curve data member 
($PDS) S-255 
PD pulse DO, $I0TEST command 

U-265 
PF,code TERMCTRL function L-288 
PF keys (see program function 

keys) 
phase execution and loading, 

$S1ASM 1-255 
PI process interrupt (see process 

interrupt) U-267 
PID program directory S-27 
PIXB (see primary-level index 

block) 
PL/I 

execution requirements S-24 
link editing S-71 
overview S-8 
program preparation 
requirements S-23 
supported by Multiple Terminal 
Manager C-200 
PL plot data, $DIC0MP subcommand 

U-122 
plot control block (see PLOTCB) 
plot curve data member ($PDS) 

S-251 
PLOTCB graphics plot control 

block L-210 
PLOTGIN graphics instruction 
coding description L-210 
overvi ew L-26 
POINT 

disk/tape instruction 

coding description L-212 
overview L-22, S-54 
point-to-point (BSC) S-65 
point-to-point vector drawing 

S-46 
POST 

post an event, $DEBUG command 



U-100 
task control instruction 

coding description L-213 
i nternals 1-58 
overview L-42, S-34 
supervisor function 1-46 
power outage, restoring after 

S-129 
PR print member, $DIC0MP command 

U-108 
preci si on L-19 

floating-point arithmetic 

L-21 
integer and logical L-19 
precision combinations, 
allowed L~20 
preci si on table 
ADD L-53 
ADDV L-54 
DIVIDE L-101 
MULTIPLY L-206 
overview L-20 
SUBTRACT L-284 
prefind U-302 
PREPARE IDCB command L-175 
PRGRMS volume, Multiple Terminal 

Manager C-120, C-173 
primary 

commands, $FSEDIT U-218 
option menu, $FSEDIT U-213 
option menu, session manager 

S-218, U-35 
task 

internals 1-29 
overview S-29 
volume S-60 
primary-level index block 
description S-195 
overview S-151 
PRINDATE terminal I/O instruction 
coding description L-215 
overview L-44, S-47 
timei — related instruction 
S-33 
PRINT listing control statement 
coding description L-216 
overview L-28 
print member, PR $DIC0MP command 

U-108 
PRINTEXT terminal I/O instruction 
coding description L-217 
overview L-44, S-47 
return codes L-219 
PRINTIME terminal I/O instruction 
coding description L-221 
overview L-44, L-50, S-47 
timei — related instruction 
S-33 
PRINTNUM terminal I/O instruction 
coding description L-222 
overview L-44, S-47 
PRINTON define terminal name, 

$RJE2780/$RJE3780 C-75 
pri ori ty 

assigned to tasks S-29 
design feature S-13 
illustrated S-38 
internals 1-31 
task L-226, L-286 
PROC identify nested procedure, 

$J0BUTIL command U-286 
procedures, session manager (see 

session manager) 
PROCESS Indexed Access Method 
CALL 
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S-15 
L-189 



coding description L-347 
overview L-27, S-147 
return codes L-349 
process interrupt 

control block (SBIOCB) 
description S-48 
IODEF statement L-189 
IOTEST command U-267 
supported by sensor I/O 
user routine (SPECPI) 
process mode 

definition S-150 
processing compiler output with 

$LINK or $UPDATE U-360 
processor status word (see PSW) 
PROGEQU L-13 
program 

equates 1-312 
assembly/compilation U-352 
control L-32 
disabling S-102 
entry (see SFSEDIT, $EDIT1/N) 
function (PF) keys L-47 
internals 1-108 
listing, KEYS $IMAGE 

command U-253 
listing 4978, $PFMAP 

utility U-301 
when using $F0NT edit 

mode U-206 
when using $FSEDIT U-211 
when using $IMAGE edit 

mode U-255 
when using session 
manager U-28 
header 1-30 
identifier, $J0BUTIL command 

U-287 
internal processing 1-30 
library update (see $UPDATE) 
load process, $PREFIND U-302 
loading (see also LOAD) 1-19 
module sectioning functions 

L-33 
organization S-29 
sequencing functions L-34 
structure S-29 
termination, EXIO 1-126 
types 1-32 
program check error messages 

U-427 
program execution via Remote Man- 
agement Utility 

EXEC function C-220 
PASSTHRU function C-225 
SHUTDOWN function C-251 
PROGRAM identifier, $J0BUTIL 

command U-287 
program preparation 

$EDXASM 1-211, U-356 

$S1ASM 1-253, U-372 

host assembler U-3S2 

of Remote Management Utility 

1-184 
summary S-18 
usage example S-367 
Program Preparation Facility 
description S-71 
overview S-5 
program preparation utilities 

U-351 
program preparation utilities 

(session manager) OU-36, S-214 
program/storage manager, Multiple 
Terminal Manager M-4 



program structure S 

internals 1-33 
program/task concept 
PROGRAM task control 
coding descripti 
internals 1-30 
overview L-42, 
PROGSTOP task contro 
coding descripti 
overview L-42, 
prompting and advanc 

terminal I/O L-46 

protected field S-3 

protocol, BSC transm 

PSW processor status 

PU PUNCHO/PUNCHS fun 

$RJE2780/$RJE3780 r 

C-76 

pulse a digital outp 

SIOTEST command U- 

PUNCHO/PUNCHS define 

$RJE2780/$RJE3780 
purpose of EDL L-l 
PUT Indexed Access M 
coding descripti 
overview L-27 
return codes L- 
PUTDE Indexed Access 
coding descripti 
overview L-27 
return codes L- 
PUTEDIT data formatt 
instruction 

coding descripti 
overview L-18 
return codes L- 
PUTSTORE TERMCTRL fu 
PUTUP Indexed Access 
coding descripti 
overview L-27 
return codes L- 
Px L-8 



-36 

s 1-29, S-29 

i nstructi on 
on L-225 

S-31 

1 statement 

on L-234 

S-31 

e input, 

07, U-253 
ission 1-156 

word U-430 
ct i on, 
eset type 

ut address, PD 
264 

output file, 
C-75 

ethod CALL 
on L-350 

351 

Method CALL 
on L-352 

353 
i ng 

on L-236 

238 

nction L-288 

Method CALL 
on L-354 

355 



QCB task 

codi 

over 

queu 

1-5 

QD queue 

QE queue 

f unc 

over 

proc 

QUALIFY 

$DEBUG 

QUESTION 

codi 

over 

queuable 

queue co 

queue de 

queue en 

queue pr 

queue pr 

L-37 
queue pr 
QUEUEIO 
QUEUEIO 
module 



control statement S-33 
ng description L-240 
view L-42 

e control block 1-45, 
4 

descriptor 1-64, L-37 

entry 
tions 1-64 
view L-37 
essing S-32 
modify base address, 
command U-101 

terminal I/O instruction 
ng description L-242 
view L-44, S-47 

resource S-33 
ntrol block (see QCB) 
scriptor (see QD) 
try (see QE) 
ocessing 1-64 
ocessing instructions 

ocessing support module, 
, description 1-81 
queue processing support 
description 1-81 
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RA reassign address* $TERMUT1 com- 
mand U-336 
random access S-53 
random work file operation* 

$S1ASM 1-260 
RCB (see Remote Management 

Utility, control block) 
RDCURSOR terminal I/O instruction 
coding description L-244 
overview L-44, S-47 
RE 

copy from basic exchange data 

set, $C0PY command U-59 
rename, $TERMUT1 command 

U-337 
rename member, $DISKUT1 com- 
mand U-135, U-136 
rename member, $DIUTIL 

command U-161 
reset parameters, $IAMUT1 

command U-243 
restore 4974 to standard 
character set, $TERMUT2 
U-339 
read 

analog input, AI $I0TEST 

U-268 
character image table from 

4978, GET $F0NT U-206 
data set into work file 
$EDIT1 U-177 
$EDIT1N U-176 
$FSEDIT U-216 
digital input, DI $I0TEST 

command U-266 
digital input using external 

sync U-266 
Host Communications Facility, 

TP operand C-95 
IDCB command L-175 
operations (BSC) 1-157 
program, RP command 
$UPDATE U-410 
$UPDATEH U-419 
READ instruction 

disk/diskette return codes 

L-249, U-455 
disk/diskette/tape I/O 
i nstructi on 

coding description L-245 
overview L-22 
tape return codes L-249, 
U-456 
READDATA read data from host, 

$HCFUT1 command C-108 
READID IDCB command L-175 
READOBJ read object module, 

$HCFUT1 command C-109 
READTEXT terminal I/O instruction 
coding description L-251 
overview L-44, S-48 
return codes L-255 
return codes, virtual terminal 
communications L-256 
ready a task supervisor execution 

state 1-43 
READ1 IDCB command L-175 
READ80 read 80 byte records, 

$HCFUT1 command C-109 
real image ACCA terminals C-7 



realtime data member 
$PDS S-251 

RT $DIC0MP subcommand U-124 
RECEIVE function 

overview C-243 
sample program C-262 
RECONNECT Multiple Terminal 

Manager utility C-120, C-159 
record 

blocking, Remote Management 

Utility C-211 
definition S-53 
exchange, Remote Management 

Utility C-208 
format for object module, 

$LINK U-407 
header, Remote Management 

Utility C-209 
sizes, Host Communications 
Facility C-83 
reformat diskettes U-68 
register, index L-6 
register, software L-6 
register conventions 
$S1ASM 1-257 
BSCAM processing 1-147 
common emulator setup routine 

1-68 
EBCDIC to floating-point 

conversion 1-205 
summary chart $S1ASM 1-258 
terminal I/O support 1-106 
REL release a status record, 

$HCFUT1 command C-110 
relational statements L-180 
RELEASE 

Host Communications Facility, 

TP operand C-96 
Indexed Access Method CALL 
S-147 

coding description L-356 
overview L-27, S-147 
return codes L-357 
release a status record, REL 

$HCFUT1 command C-110 
release space ($PDS) S-261 
relocating program loader 1-19 
relocation dictionary, SEDXASM 

1-250 
REMARK operator comment, $J0BUTIL 

command U-288 
remote job entry to host, 

$RJE2780/$RJE3780 C-73 
Remote Management Utility 
CDRRM equates C-292 
control block (RCB) 

description 1-164, 1-169 
equate tables C-292, 

1-295 
use in problem determi- 
nation 1-190 
defaults C-283 
error handling C-277 
function table- 1-164, 1-167 
functions C-206, 1-166 
installation C-281 
interface C-207 
internals 1-216 
logic flow 1-170 
messages C-279 
modifying defaults C-283 
module descriptions 1-191 
module list 1-186 
operation C-213 
overlay function processor 
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table 1-167, 1-220 
overlay table 1-167, 1-220 
overview C-205 
program preparation 1-184 
requirements C-207 
sample host programs C-259 
system generation 

considerations C-281 
TERMINAL statement example 

S-107 
terminating C-251 
remote system (see Remote 

Management Utility) C-205 
remove breakpoints and trace 

ranges, OFF $DEBUG command U-97 
rename member 

RE $DISKUT1 command U-135, 

U-136 
RE $DIUTIL command U-161 
RENUM renumber lines 

$EDIT1/N subcommand U-196 
$FSEDIT primary command U-224 
reorganize an indexed data set 
U-242 

procedure S-166 
report data member ($PDS) S-251 
reposition line pointer (see move 

line pointer) 
Request record C-209 
reserved labels L-4 
reset 

function, $RJE2780/$RJE3780 

attention request C-76 
IDCB command L-176 
Indexed Access Method 

ECHO mode, EC $IAMUT1 com- 
mand U-240 
SE command parameters, RE 
$IAMUT1 command U-243 
line command, $FSEDIT primary 
command U-225 
RESET task control instruction 
coding description L-258 
overview L-42, S-31 
resident assembler routines 1-256 
resolution, enhanced 1-201 
resolution, standard graphics 

1-201 
resource control, supervisor 1-54 
restart, automatic S-129 
restore 

disk or disk volume from tape, 

RT $TAPEUT1 command U-326 
dump volume utility, $M0VEV0L 

U-294 
4974 to standard character 
set, RE $TERMUT2 command 
U-343 
resulting field (EOR) L-122 
return codes (see also completion 
codes) 

$DISKUT3 S-319, U-444 

$PDS U-445 

BSC C-57, U-446 

CONVTB L-80 

CONVTD L-83 

data formatting instructions 

U-447 
DELETE L-330 
DISCONN L-333 
ENDSEQ L-335 
EXIO U-448 

EXIO instruction L-131 
EXIO interrupt L-132 
EXTRACT L-337 



FADD L-136 

FDIVD L-138 

FILEIO C-145 

floating point instruction 

U-450 
FMULT L-145 

formatted screen image U-450 
FSUB L-160 
FTAB C-138, L-373 
GET L-340 
GETSEQ L-343 
in Remote Management Utility 

control block 1-190 
Indexed Access Method U-451 
LOAD L-199, U-452 
LOAD (Indexed Access Method) 

L-346 
Multiple Terminal Manager 

U-453 
PRINTEXT L-219 
PROCESS L-349 
PUT L-351 
PUTDE L-353 
PUTEDIT L-238 
PUTUP L-355 
READ disk/diskette L-249, 

U-455 
READ tape L-250, U-456 
READTEXT L-255 
RELEASE L-357 
SBIO U-457 

SBIO instruction L-262 
SETPAN C-135 
tape L-77 
TERMCTRL L-288 
terminal I/O L-255, U-458 
ACCA U-459 
i nterprocessor 
communications C-31, 
U-460 
virtual terminal L-256, 
U-461 
TP (Host Communications Facil- 
ity) C-102, U-463 
WHERES L-316 
WRITE disk/diskette L-320, 

U-455 
WRITE tape L-320, U-456 
return from immediate action 

routine (SUPEXIT) 1-49 
return from task level (SUPRTURN) 

1-49 
RETURN program control 
i nstructi on 

coding description L-259 
overview L-32, S-31 
supervisor entry point 1-279, 

1-313 
supervisor interface 1-62 
REW (rewind tape) L-75 
rewind tape, MT $TAPEUT1 command 

U-324 
RH reassign hardcopy, $TERMUT1 

command U-338 
RI read 
t ran spa r en t/non- transparent, 
$BSCUT2 command C-68 
RJE (see Remote Job Entry) 
RLOADER 1-19, 1-22 

RLOADER/RLOADRU module 
description 1-78 
RO reorganize indexed file, 

$IAMUT1 command U-242 
ROFF (rewind offline) L-75 
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roll screen, terminal I/O L-48, 

S-293 
RP read program 

$UPDATE command U-410 
$UPDATEH command U-419 
RPQ D02038, 4978 display station 
attachment C-6, S-97 
different device 
configurations C-8 
RSTATUS IDCB command L-175 
RT 

activate realtime data member, 

$DIC0MP subcommand U-124 
change realtime data member 

name ($PDS) S-258 
disk or disk volume from tape, 
STAPEUTl utility U-326 
RWI read/write non-transparent, 

$BSCUT2 command C-58 
RWIV read/write non-transparent 

conversational, $BSCUT2 C-71 
RNIVX read/write transparent 

conversational, $BSCUT2 C-70 
RWIX read/write transparent, 

$BSCUT2 command C-67 
RWIXMP read/write multidrop 
transparent, $BSCUT2 command 
C-60 



SA save data, $DIC0MP subcommand 

U-124 
SAVE 

data set on disk, $IMAGE com- 
mand U-254 
work data set, $EDIT1/N 
subcommand U-197 
save current task status 

(TASKSAVE) 1-54 
save data, SA $DIC0MP subcommand 

U-124 
save disk or disk volume on tape, 

$TAPEUT1 utility U-330 
save storage and registers, STRAP 

utility U-348 
SB special PI bit, $I0TEST 

command U-267 
SBAI sensor based I/O support 

module description 1-80 
SBAO sensor based I/O support 

module description 1-80 
SBCOM sensor based I/O support 

module description 1-80 
SBDIDO sensor based I/O support 

module description 1-80 
SBIO sensor based I/O instruction 
coding description L-260 
control block (SBIOCB) 1-127 
overview L-39, S-51 
return codes L-262 
SBIOCB sensor based I/O control 

block 1-127 
SBPI sensor based I/O support 

module description 1-80 
SC save control store, $TERMUT2 

command U-343 
screen format builder utility, 

$IMAGE S-68, U-250 
SCREEN graphics instruction 
coding description L-270 
overview L-26 



screen image format building 

U-250 
screen images, retrieving and dis- 
playing S-300 
screen management, terminal I/O 

L-48 
SCRNS volume, Multiple Terminal 

Manager C-120, C-173 
SCRNSREP, Multiple Terminal 

Manager C-125 
scrolling, $FSEDIT U-210 
SCSS IDCB command L-176 
SE set parameters, $IAMUT1 

command U-244 
SE set status, $HCFUT1 command 

C-110 
second-level index block 
description S-197 
overview S-153 
secondary 

disk volumes S-132 
volumes S-60 
secondary option menus S-218, 
U-36 

(see session manager) 
sectioning of program modules 

L-33 
sector S-52 

self-defining terms L-4 
send 

data, HX $DIC0MP subcommand 

U-118 
data set, SEND function C-247 
message to another terminal, 
$TERMUT3 utility U-344 
SEND function 

internals 1-166, 1-172 
overview C-247 
sample program C-274 
sensor based I/O 

assignment L-188 

I/O control block (SBIOCB) 

1-127 
modules (IOLOADER/IOLOADRU) 

1-78 
statement overview L-39 
support module descriptions 

1-81 
symbolic L-9 
SENSORIO configuration statement 

S-51, S-84 
sequence chaining L-27 
sequencing instructions, program 

L-34 
sequential access 

in Indexed Access Method 

S-145 
overview S-53 
sequential work file operations 

($S1ASM) 1-259 
serially reusable resource (SRR) 

1-59, S-33 
session, PASSTHRU 

conducting C-227 
establishing C-225 
logic flow diagram C-230 
using $DEBUG utility C-272 
session manager U-27 

$SMALL0C data set allocation 

control data set S-222, U-30 
$SMDELET data set deletion 

control data set S-222, U-32 
adding an option S-209, S-224 
communications utilities U-42 
communications utilities 
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S-217 
data management S-215 
diagnostic utilities 

S-217 
disk utilities (see data 

management) 
execute program utilities 

S-216 
graphics utilities S-216 
job stream processor 

utilities S-216 
logon menu U-27 
primary S-218, U-35 
program preparation 

utilities S-214 
secondary S-218, U-36 
summary of S-213 
terminal utilities S-215 
updating primary option 
S-224 
creating a new menu S-224 
data management U-38 
data set deletion U-32 
data sets creation U-29 
diagnostic utilities U-43 
execute program utilities 

U-41 
graphics utilities U-40 
invoking U-27 
invoking a $J0BUTIL procedure 

S-229 
job stream processor 

utilities U-42 
menus U-33 
minimum partition size 

required U-27 
operational overview S-209 
primary option menu* $SMMPRIM 

S-218, U-35 
procedures 

communications utilities 

S-217 
data management utilities 

S-215 
diagnostic utilities 

S-217 
execute program utilities 

S-216 
graphics utilities S-216 
job stream processor 

utilities S-216 
overview S-220 
program preparation 

utilities S-214 
terminal utilities S-215 
updating S-225 
program function keys U-28 
program preparation utilities 

U-36 
secondary option menus S-218* 

U-36 
storage usage S-211 
terminal utilities U-40 
text editing utilities U-36 
utilities not supported U-46 
SET, ATTN TERMCTRL function L-288 
set breakpoints and trace ranges, 

AT $DEBUG command U-90 
set date and time, $T operator 

command S-63, U-19 
SET Host Communications Facility 

TP operand C-97 
SET,LPI TERMCTRL function L-288 
set status, SE $HCFUT1 command 
C-110 



set tape offline, MT $TAPEUT1 com- 
mand U-324 
set time, $T operator command 

U-19 
SETBUSY supervisor busy routine 

1-48, 1-63 
SETCUR, Multiple Terminal Manager 
CALL 

coding description C-137, 

L-378 
internals M-9 
overview C-117, L-29 
SETEOD subroutine S-324 
SETPAN, Multiple Terminal Manager 
CALL 

coding description C-134, 

L-379 
internals M-9 
overview C-117, L-29 
return codes L-380 
setup procedure for $J0BUTIL 

U-271 
SG special PI group, $I0TEST com- 
mand U-267 
SHIFTL data manipulation 
i nstructi on 

coding description L-271 
overview L-19 
SHIFTR data manipulation 
i nstructi on 

coding description L-273 
overvi ew L-19 
SHUTDOWN function C-251, 1-166, 

1-181 
SI save image store, $TERMUT2 com- 
mand U-341 
SIGNON/SIGNOFF, Multiple Terminal 
Manager C-156 

SIGNONFL C-174 
single program execution 1-35 
single-task program 1-33 
single task program S-34 
SIXB (see second-level index 

block) 
SLE sublist element, SEDXASM 
format of 1-217 
in instruction parsing 

($EDXASM) 1-220 
instruction description and 

format 1-229 
used in $IDEF 1-241 
software register L-6 
software trace table S-265 
sort/merge S-9 

source program compiling S-71 
source program entry and editing 

S-66, U-351 
source program line continuation 

using $EDXASM L-4, U-361 
source statements, $EDXASM overlay 

generated 1-243 
SP spool function, 
$RJE2780/$RJE3780 reset type 
C-76 
SPACE listing control statement 
coding description L-275 
overview L-28 
special control characters S-46 
special PI 

bit, SB $I0TEST command U-267 
group, SG $I0TEST command 
U-267 
specifications, data conversion 
L-146 
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SPECPI define special process 

interrupt L-189 
SPECPIRT instruction 

coding description L-276 
overview L-39 
split screen configuration S-293 
SPOOL define spool file, 
$RJE2780/$RJE3780 C-76 
SQ set prompt made, $C0PYUT1 

command U~64 
SQRT data manipulation 
i nstruct i on 

coding description L-277 
overview L-19 
SS set program storage parameter, 

$DISKUT2 command U-149 
ST 

display data set status, 
$DIUTIL command U-162 
save disk or disk volume on 
tape, $TAPEUT1 command U-330 
standard labels, tape 
E0F1 S-240 
E0V1 S-239 
fields S-238 
HDR1 S-239 
header label S-235 
layouts S-236 
processing S-236 
trailer label S-235 
volume label S-235 
V0L1 S-238 
START 

IDCB command L-176 
PROGRAM statement operand 
L-225 
start and termination procedure, 

$DEBUG U-85 
STARTPGM 1-16 
statement label L-4 
static screen, terminal I/O 
accessing example S-297 
overview L-48 
status, set, SE $HCFUT1 command 

C-110 
STATUS data definition statement 
coding description L-278 
overview L-17 
status data set, system Host 

Communications Facility C-85 
Status record C-258 
STIMER timing instruction 

coding description L-280 
overview L-50, S-32 
with PASSTHRU function C-238 
storage estimating 

application program size 

S-344 
supervisor size S-333 
utility program size S-342 
storage management 

address relocation translator 

1-71, S-42 
allocating 1-25 
description S-42 
design feature S-13 
storage map, resident loader 1-26 
storage map ($S1ASM) phase to 

phase 1-262 
storage resident loader, RLOADER 

1-19 
storage usage during program load 

1-20 
store next record ($PDS) S-261 
store record ($PDS) S-261 



strings, relational statement 

L-180 
SU 

submit (X) function, 

$RJE2780/$RJE3780 reset type 

C-77 
submit job to host, $HCFUT1 

command C-lll 
SUBMIT 

Host Communications Facility, 

TP operand C-98 
send data stream to host, 

$RJE2780/$RJE3780 C-77 
submit job to host, $EDIT1 

command U-179 
submit job to host, $FSEDIT 

option U-217 
SUBMITX send transparent, 

$RJE2780/$RJE3780 C-77 
SUBROUT program control statement 
coding description L.-281 
overview L-32, S-31 
subrout i nes 

$IMDATA S-303 
$IMDEFN S-301 
$IM0PEN S-300 
SIMPROT S-302 
ALTIAM concatenation S-167 
DSOPEN S-322 
overview S-31 
SETEOD S-324 
SUBTRACT data manipulation 
instruction 

coding description L-283 
overview L-19 
precision table L-284 
suggested utility usage U-48 
supervi sor/emulator 

class interrupt vector table 

1-10, 1-277 
communications vector table 

1-11, 1-278, 1-313 
control block pointers 1-11 
design features S-13 
device vector table I~ll, 

1-278 
emulator command table 1-13, 

1-282, 1-301 
entry routines 1-47 
equate table 1-279, 1-313 
exit routines 1-49 
features S-13 
fixed storage area 1-9 
functions 1-44 

calling 1-60 
generation 1-5, S-115 
initialization control module, 

EDXINIT, description 1-81 
initialization task module, 

EDXSTART, description 1-81 
interface routines 1-61 
introduction 1-5 
module names and entry points 

S-309 
module summary 1-8 
overview S-29 

PASSTHRU session with C-225 
referencing storage locations 

in 1-12 
service routines 1-53 
size, estimating S-333 
task supervisor work area 

1-13, 1-280 
utility functions (see 

operator commands) 
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with the address translator 
support 1-72 
SUPEXIT supervisor exit routine 

1-49, 1-63 
support for optional features 

L-15 
SUPRTURN supervisor exit routine 

1-49 
surface analysis of tape, STAPEUTl 

utility U-319 
SVC supervisor entry routine 

1-47, 1-62 
SVCABEND supervisor exit routine 

1-49 
SVCBUF supervisor request buffer 

1-48 
SVCI supervisor entry routine 

1-48 
symbol dictionary, $EDXASM 1-250 
symbol table types, $EDXASM 1-216 
symbolic L-10 

address (disk, tape) L-10 
disk/tape I/O assignments 

L-10 
diskette L-10 

reference to terminals S-110 
sensor I/O addresses L-9 
terminal I/O L-10 
symbols (EXTRN) L-134 
symbols (WXTRN) L-323 
syntactical coding rules L-4 
syntax checking in instruction 

parsing ($EDXASM) 1-221 
syntax rules L-4 
SYSGEN (see system generation) 
system 

alternate logging device 

S-46, S-lll 
class interrupt vector table 

1-10, 1-277 
commands (see operator 

commands) 
common area 1-12 
communications vector table 

1-11, 1-278, 1-313 
control blocks, referencing 

1-289 
data tables, EDXSYS, module 

description 1-75 
device vector table 1-11, 

1-278 
emulator command table 1-13, 

1-282, 1-301 
generati on 

procedure S-115 
host/remote C-205 
logging device S-46, S-110 
operational and error 

messages U-421 
printer S-46, S-110 
program check and error 

messages U-427 
task supervisor work area 
1-13, 1-280 
SYSTEM configuration statement 

L-39, S-86 
system configuration statements 

S-75 
system control blocks S-42 
system reserved labels L-4 



TA allocate tape data set, 

$TAPEUT1 command U-333 
tables, parameter equate L-ll 
tabs 

HTAB $IMAGE command U-252 
TABSET $EDIT1/N subcommand 

U-198 
VTAB $IMAGE command U-254 
TABSET establish tab values 

$EDIT1/N editor subcommand U-198 
tape 

bypass label processing S-244 
control L-74 
data set L-40 
defining volumes S-62 
definitions for data sets 

L-40 
end-of-tape (EOT) L-41 
I/O instructions L-40 
internals 1-97 
labels 

external S-233 
internal S-233 
load point (BOT) L-40 
non-label 

layout S-242 
processing S-243 
support S-241 
record L-40 

return codes L-77, U-455 
standard label 

fields S-238 
layout S-236 
processing S-236 
support S-235 
storage capacity S-59 
symbolic addressing L-10 
utility, STAPEUT1 S-233, 

U-311 
volume L-40 
TAPE configuration statement S-94 
tape data set control block 1-99 
tape device data block (see TDB) 
TAPEINIT, tape initialization mod- 
ule description 1-82 
tapemark L-74 
task 

active/ready level table 1-50 

concepts 1-29 

control 1-42 

control block (see TCB) 

definition and control func- 

ti ons 
dispatching 1-52 
error exit facility 

check and trap handling 

S-268 
linkage conventions S-269 
execution states 1-43, S-39 
internals 1-42 
multiple-task program 1-33, 

S-34 
overview L-42, S-29 
priority (see priority, task 

executi on) 
single-task program 1-33, 

S-34 
states S-39 
status display, WHERE $DEBUG 

command U-102 
structure S-29 
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supervisor 1-42 

supervisor address translator 

support module 1-76 
supervisor functions 1-44 
supervisor work area 1-13, 

1-280 
switching 1-51, S-30 
synchronization and control 
1-54, S-30 
task code words L-8 
TASK task control statement 
coding description L-285 
overview L-42, S-31 
TASKSAVE supervisor service 

routine 1-54 
TCB task control block 1-32, 

1-43, 1-49, 1-56, 1-314 
TCBEQU L-13 
TD 

display line and data ($PDS) 

S-258 
display time and date, $DIC0MP 

subcommand U-124 
test display, $DIC0MP command 
U-108 
TDB, tape device data block 
description 1-97 
equate listing 1-316 
TEB terminal environment block 

C-128, M-13 
Tektronix C-6 

devices supported S-14, S-45 
support for digital I/O S-312 
teleprocessing (see TP) 
teletypewriter adapter C-7, C-21 
TERMCTRL terminal I/O instruction 
coding description L-288 
overview L-44 
return codes L-301 
TERMERR L-44 
termi nal 

#7850 teletypewriter adapter 

C-21 
ACCA support C-7, L-295 
ASCII C-7 
assignment list, LA $TERMUT1 

command U-336 
attention handling L-47 
attention keys L-47 
code types C-303 
configuration utility, 

$TERMUT1 U-334 
connected via digital I/O 

S-312 
control block (see CCB) 
data representation L-46 
definition and control 

functions S-47 
device configurations C-8 
EDXTIO/EDXTIOU module 

description 1-78 
environment block (see TEB) 
error handling L-44 
forms control L-46 
forms interpretation for 

display screens L-46 
functions 

data formatting C-16 
definition C-16 
interrupt processing C-17 
hardware jumpers C-18 
I/O L-46 

attention handling L-47 
data representation L-45 
error handling L-44 



forms control L-45 
prompting and advance 

input L-46 
screen management L-48 
I/O internal design 1-105 
I/O support layer 3 1-112 
input L-46 
keyboard and ATTNLIST tasks 

L-47 
message sending utility, 

$TERMUT3 U-344 
new I/O terminal support 

1-117 
operations C-14 
operator signals L-49 
output L-46 

output line buffering L-46 
program function keys L-47 
prompting and advance input 

L-46 
return codes C-20, L-219, 

L-255, U-458 
roll screens L-48 
sample terminal support 

program C-26 
screen management L-48 
server, Multiple Terminal 

Manager C-119, M-7 
session manager (see session 

manager) 
special considerations for 

attachments of devices 

via #1610 or #2091 with 

#2092 adapters C-17 
via #2095 with #2096 
adapters C-21 
special control characters 

S-46 
static screens L-48 
supported devices and 

features C-6 
terminal I/O L-47 
terminology for supported 

terminals C-7 
transmission protocol C-31 
utilities (session manager) 

S-215, U-40 
virtual I/O 1-115 
TERMINAL configuration statement 
defaults S-105 
definition S-96 
overview S-48 
TERMINAL volume, Multiple Terminal 

Manager C-120, C-171 
terminate 

logging, $L0G utility U-292 
Remote Management Utility 

C-251 
test 

BSC lines, $BSCUT2 utility 

C-64 
generated report or graphics 

profile member U-108 
label types, $TAPEUT1 utility 

U-319 
process interrupt for 

occurrence of event, $I0TEST 

U-267 
TEXT data definition statement 
coding description L-305 
overview L-17 
text editing utilities 

edit dataset subroutine exam- 
ples 1-326 
full screen-editor SFSEDIT 
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U-209 
line editors, $EDIT1/N U-169 
overview S-66 
work data set, format of 
1-321 
text wrapping, WRAP function 

C-254 
t i me/date 

display, $W operator command 

U-25 
set, $T operator command U-19 
set, automatic initialization 
facility S-130 
time of day 

GETTIME instruction L-167 
TIMEDATE Host Communications 
Facility, TP operand C-100 
TIMER configuration statement 

S-33, S-112 
timer control L-50 
timer module descriptions 

(EDXTIMER, EDXTIMR2) 1-80 
timing instructions L-50, S-32 
TITLE listing control statement 
coding description L-308 
overview L-28 
TONE TERMCTRL function L-288 
TOP repostiton line pointer, 

$EDIT1/N editor subcommand U-200 
TP host communication instruction 
descri pt i on 

coding description C-90 
internals 1-153 
subcommand operations 1-157 
TPCOM host communications support 

module description 1-81 
trace printing routine for BSC, 

$BSCUT1 C-62, S-65 
trace ranges and breakpoints 

setting, AT $DEBUG command U-90 
trace routine for BSC, $BSCTRCE 

C-61 
trace table, software S-265 
transaction program, Multiple 
Terminal Manager 
functions L-28 
Multiple Terminal Manager 
C-121 
transfer data set to host 
SEND function C-247 
WR $HCFUT1 command C-112 
WRITE $EDIT1 command U-180 
WRITE $FSEDIT option U-216 
transfer rates for data, Host 

Communications Facility C-84 
transient program loader 1-19 
transmission codes S-98 
transmission protocol, host 

communications 1-156 
transmitted data, length of, host 

communications 1-159 
TRAPDUMP force trap dump, $TRAP 

attention command U-349 
TRAPEND end $TRAP use, $TRAP 

attention command U-349 
TRAPOFF deactivate error trap, 

$TRAP attention command U-349 
TRAPON activate error trap, $TRAP 
attention command U-349 



UN unload indexed 

command U-246 
UNBLINK TERMCTRL fu 
undefined length re 

S-245 
UNLOCK TERMCTRL fun 
unprotected field 
UP move line pointe 

editor subcommand 
update utility 

$UPDATE convert 

to disk U-408 

$UPDATEH conver 

program to di s 

updating a menu for 

manager S-224 
user defined data m 

S-252 
user exit routine 

requires Macro 
user initialization 
USER program contro 
coding descript 
overview L-32 
utilities U-47 

BSC communicati 
invoking U-2 
li sted by type 
overview S-5 
utilities not suppo 
manager menu U-46 
utility program siz 
utility usage U-48 



file, $IAMUT1 



nction L-288 
cords, tape 

ction L-288 
S-307, U-253 
r, $EDIT1/N 
U-201 

object program 

t host object 
k U-418 
the session 

ember ($PDS) 

L-310 
Assembler S-71 

modules 1-17 
1 instruction 
ion L-310 



ons C-61 

S-6^, U-3 
rted by session 
e S-342 



$INITDSK command U-260 
$DIC0MP 

S-254 



Faci li ty 
records, 

L-4 



C-84 
tape 



V verify, 
VA 

display, variable, 
subcommand U-125 
display variable ($PDS) 
variable length record, Host 

Communi cat i ons 
variable length 

S-244 
variable names 
vary disk, diskette, or tape 

offline, $VARY0FF U-20 
vary disk, diskette, or tape 

online, $VARY0N U-22 
vector 

addition L-19, L-54 
data manipulation L-19 
vector addition (ADDV) 
coding description 
overview L-19 
verify 

disk or diskette data 

$INITDSK U-260 
tape executing correctly, EX 

$TAPEUT1 command U-319 
tape surface free of defects, 
EX $TAPEUT1 command U-319 
verify and initialize disk or 

diskette library, $INITDSK U-256 
verify identification 
host system C-223 
remote system C-223 



L-54 



set, V 
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VERIFY verify changes, $EDIT1/N 

editor subcommand U-202 
vertical tabs, defining U-254 
VI list volume information, 

$I0TEST command U-270 
virtual terminal communications 
accessing the virtual termi- 
nal S-281 
creating a virtual channel 

S-280 
establishing the connection 

S-280 
inter-program dialogue S-282 
internals 1-115 
loading from a virtual 

terminal S-281 
Remote Management Utility 
requirements C-281 
volume 

definitions (disk/diskette) 

L-22, S-52 
dump restore utility, 

$M0VEV0L U-294 
labels S-60 
VTAB define vertical tab setting, 
$IMAGE command U-254 



CALL 

coding descripti 

L-381 
internals M-9 
overview C-118, 
save work data set 
$EDIT1 command 
$EDIT1N command 
$FSEDIT primary 
U-216 
tape I/O instruction 
coding descripti 
overview L-22 
return codes L- 
write data set to host, 

command C-112 
write operations, HCF I 
WRITE1 IDCB command L~l 
WS put program in wait s 

$I0TEST command U-264 
WTM (write tape mark) L 
WXTRN program module sec 
statement 

coding description 
overview L-33 



on C-133, 



L-29 

U-180 

U-181 
opt i on 



on L-317 

320, U-456 
WR $HCFUT1 

-156 
75 

tate, 

-75 
tioni ng 

L-323 



m 



XYZ 



WAIT program sequencing statement 
coding description L-313 
overview L-42, S-31 
supervisor function 1-45, 
1-58 
wait state, put program in, WS 

$I0TEST command U-264 
waiting, task execution state 

1-43 
WE copy to basic exchange diskette 

data set, $C0PY command U-63 
WHERE display status of all tasks, 

$DEBUG command U-102 
WHERES task control function 
coding description L-315 
overview L-42, S-287 
return codes L-316 
WI write non-transparent, SBSCUT2 

command C-69 
WIX write transparent, $BSCUT2 

command C-69 
word boundary requirement 
DO L-34 
IF L-34 
PROGRAM L-225 
work data set 

$EDXASM 1-249 
$LINK U-400 
$S1ASM 1-258 
work files, $S1ASM, how used 

1-258 
WR write a data set to host, 

$HCFUT1 command C-112 
WRAP function C-254, 1-166, 1-176 
WRITE 

disk/diskette I/O instruction 
coding description L-317 
overview L-22 
return codes L-320, U-455 
Host Communications Facility, 

TP operand C-101 
IDCB command L-175 
Multiple Terminal Manager 



X-type format L-154 

XI external sync DI, $I0TEST 

command U-266 
XO external sync DO, $I0TEST 

command U-266 
XYPLOT graphics instruction 

coding description L-324 

overview L-26 
YTPLOT graphics instruction 

coding descrition L-325 

overvi ew L-26 
2C0R, sensor I/O L-189 
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C-7 
2092 asynchronous communications 
four line adapter C-6 

considerations for attachment 

of devices C-17 
different device 

configurations C-8 
to attach ACCA terminal S-99 
use with different terminals 

C-7 

2095 feature programmable eight 
line controller C-6 

considerations for attachment 

of devices C-21 
different device 

configurations C-8 
use with different terminals 

C-7 

2096 feature programmable four 
line adapter C-6 

considerations for attachment 

of devices C-21 
different device 

configurations C-8 
use with different terminals 

C-7 
2741 Communications Terminal 
supported S-45 
TERMINAL statement example 

S-106 
3101 Display Terminal 

attribute character C-122 
block mode considerations 

C-25 
character mode considerations 

C-22 
interface with Multiple 

Terminal Manager C-121, L-29 
TERMINAL configuration 

statement examples S-108 
3585 4979 display station 
attachment C-6, S-97 

4952 Processor 
partitions on S-42 
timer feature installed on 

S-32 

4953 Processor 
partitions on S-42 
timer feature installed on 

S-32 
4955 Processor 

partitions on S-42 

timer feature installed on 

S-32 

4962 Disk Storage Unit 
storage capacity S-58 
supported by Indexed Access 

Method S-146 

4963 Disk Subsystem 
storage capacity S-58 
supported by Indexed Access 

Method S-146 

4964 Diskette Storage Unit 

part of minimum system config- 
uration S-22 

required for program 
preparation S-22 

supported by Indexed Access 
Method S-146 
4966 Diskette Magazine Unit 

part of minimum system config- 
uration S-22 

required for program 
preparation S-22 



supported by Indexed Access 
Method S-146 
4969 Magnetic Tape Subsystem 
S-233 

4973 Line Printer 

defined in TERMINAL configura- 
tion statement S-96 
end of forms S-307 
TERMINAL statement example 
S-105 

4974 Matrix Printer 

defined in TERMINAL configura- 
tion statement S-96 

end of forms S-307 

restore to standard character 
set, RE $TERMUT2 U-339 

TERMINAL statement example 
S-105 

4978 Display Station 

defined in TERMINAL configura- 
tion statement S-96 

part of minimum system 
configuration S-22 

reading modified data S-307 

required for program 
preparation S-22 

TERMINAL statement example 
S-105 

4979 Display Station 

defined in TERMINAL configura- 
tion statement S-96 
part of minimum system 

configuration S-22 
required for program 

preparation S-23 
TERMINAL statement example 
S-105 
4982 sensor I/O unit S-84 
5230 Data Collection Interactive 

S-ll 
5620 4974 matrix printer 
attachment C-6 

defined in TERMINAL statement 

S-97 
different device 
configurations C-8 
5630 4973 line printer attachment 
C-6 

defined in TERMINAL statement 
S-97 
5719-AM3 (see Indexed Access 

Method) 
5719-ASA (see Macro Assembler) 
5719-CB3 (see COBOL) 
5719-CB4 (see COBOL) 
5719-F02 (see FORTRAN IV) 
5719-LM3 (see 
Mathemati cal/Functi onal Subrou- 
tine Library) 
5719-LM5 (see Macro Library) 
5719-MS1 (see Multiple Terminal 

Manager) 
5719-SM2 (see Sort/Merge) 
5719-UT3 (see Utilities) 
5719-UT4 (see Utilities) 
5719-XS1 (see Basic Supervisor and 

Emulator) 
5719-XX2 (see Program Preparation 

Faci li ty) 
5740-LM2 (see Macro Library/Host) 
5799-TDE (see Data Collection 

Interacti ve) 
7850 teletypewriter adapter C-6, 
C-21 
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